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ABSTRACT 


Traditional  Database  Management  Systems  (DBMS)  are  capable  of  managing  only 
alphanumeric  data.  The  Multimedia  Database  Management  System  (MDBMS)  prototype 
started  at  the  Computer  Science  Department  of  Naval  Postgraduate  School  in  1988  made 
it  possible  to  capture,  store,  manage,  retrieve  and  present  different  media  informalion  such 
as  image  and  sound  by  using  the  current,  modem  computer  technology.  In  the  existing 
MDBMS,  if  a  query  references  only  formatted  data,  it  is  passed  to  Ingres  directly,  but, 
if  a  query  includes  media  data,  then  the  query  is  decomposed  into  multiple  subqueries 
each  of  which  must  be  individually  processed,  and  the  intermediate  results  of  which  must 
be  recomposed  to  form  the  final  result  to  be  given  to  the  user.  This  thesis  will  concentrate 
on  complex  queries  involving  nesting  conditions  and  multiple  selections  which  arc  not 
supported  by  the  existing  MDBMS  prototype. 
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L  INTRODUCTION 


A.  BACKGROUND 

Multimedia  database  numagement  systems  (MDBMS)  manage  multimedia  data  such 
as  image  data  and  sound  data  in  addition  to  formatted  data.  Multimedia  database 
management  systems  are  currently  attracting  a  lot  of  attention  because  of  the  demands  of 
the  new  applications  and  the  advances  of  the  technology,  making  it  possible  to  capture 
and  store  multimedia  data  in  computers.  Multimedia  data  broadens  the  communication 
between  the  computer  system  and  the  user.  Many  applications,  military,  publishing,  or 
instructional,  routinely  need  multimedia  data.  Although  the  cost  of  the  hardware  required 
to  handle  multimedia  data  is  decreasing  rapidly,  the  software  needed  to  manage  such 
multimedia  data  is  lacking  or  does  not  match  the  needs. 

Studies  on  multimedia  database  management  systems  starred  in  Computer  Science 
Department  of  Naval  Postgraduate  School  in  1988.  Besides  storing,  managing  and 
retrieving  different  media  information,  the  MDBMS  prototype  also  manages  the 
interrelationships  between  formatted  and  media  data.  Text,  graphics,  images,  sound, 
signals  and  video  are  the  elements  of  multimedia  data.  What  is  common  about  them  is 
that  they  all  require  rather  large  storage  space  and  consist  of  a  large  and  varying  number 
of  small  items,  like  characters,  pixels,  lines  or  frequency  indicators  stored  together  in 
some  way  to  form  a  unit.  They  all  have  a  more  complicated  structure  than  formatted  data, 
and  require  the  use  of  Abstract  Data  Type  (ADT)  concept.  With  this  approach,  image. 
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sound,  signal,  text  and  graphic  data  will  be  treated  as  new  data  types.  Any  attribute  of  an 
object  can  have  one  of  these  types.  Currently  can  use  the  database  operations,  create, 
retrieve,  modify  and  delete,  on  these  new  media  data  "values". 

In  our  current  prototype  system  we  use  separate  ^es  to  store  the  media  objects 
because  of  their  high  storage  requirement  A  media  object  is  the  value  of  a  media 
attribute.  An  image,  for  example,  is  a  media  object,  but  it  is  also  the  value  of  the  attribute 
picture,  just  like  "John”  being  the  value  of  the  attribute  name  in  an  Employee  relation. 

The  main  task  of  MDBMS  is  storage  and  retrieval,  but  not  processing  of  data.  The 
storage  and  retrieval  of  multimedia  data  should  be  done  by  the  content  of  the  data,  but 
handling  content  search  is  a  difficult  problem,  since  it  is  not  possible  to  use  the  methods 
currently  done  on  formatted  data  structures. 

Since  automatic  recognition  of  the  contents  of  media  data  by  the  computer  is  not 
possible  using  today’s  technology,  the  decision  was  made  in  the  MDBMS  project  to  use 
natural  language  descriptions  to  specify  the  contents  of  media  data.  A  Prolog  parser  was 
constructed  to  understand  the  meaning  of  the  natural  language  captions  describing  the 
content  of  the  media  data.  When  the  user  makes  a  query  related  to  multimedia  data,  the 
PARSER  recognizes  syntax  and  semantics  of  the  natural  language  description  and 
interacts  with  the  MDBMS  to  locate  the  appropriate  data  items  [REF6]. 

INGRES  is  used  to  store  and  manage  the  data.  However,  many  of  the  tables  are 
transparent  to  the  users.  For  example  when  the  user  wants  to  create  a  table  which  includes 
media  data  using  a  SQL  statement,  the  system  creates  a  separate  table  for  each  media 
attribute  in  addition  to  the  tables  for  formaned  data. 
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B.  RELATED  WORK 


Besides  the  MDBMS  Project  at  Naval  Postgraduate  School,  there  are  a  number  of 
researches  going  on  in  multimedia  data  processing  around  the  world.  Among  those,  the 
MINOS  system  iREF4]  developed  by  a  team  at  the  University  of  Toronto  manages  highly 
stractured  multimedia  objects  that  consists  of  attributes  as  well  as  the  text,  image  and 
voice  part.  Sophisticated  browsing  and  user  interface  features  allow  the  browsing  of  the 
schema  as  well  as  synchronized  updates.  The  MCC  Database  program  [REF15,  REF16] 
also  undertook  several  multimedia  projects  by  establishing  the  database  requirements  of 
multimedia  applications.  They  identified  requirements  for  a  data  model  and  for  the  sharing 
and  manipulation  of  multimedia  data.  An  0-0  database  management  system  named 
ORION  has  been  developed  at  MCC  in  Austin/Texas,  which  contains  a  Multimedia 
Information  Manager  (MIM)  for  processing  multimedia  data  [REF14].  The  IBM  Tokyo 
Research  Laboratory  has  developed  two  "mixed-object  database  systems",  which  arc 
named  as  MODES  1  and  MODES2  [REF5].  In  Europe  there  is  an  ESPRIT  project 
designing  a  multimedia  filing  system  called  MULTOS  [REF2,  REF3]. 

Recently  multimedia  management  in  the  personal  computers  becomes  available  by 
using  hypertext  and  hypermedia.  The  concept  of  hypertext  is  very  old;  it  has  been 
transferred  to  computer  systems  since  1960’s.  Originally  intended  to  manage  arbitrarily 
linked  text  segments,  it  has  been  extended  to  manage  images  and  sound,  and  has  become 
"Hypermedia"  [REF7].  The  hypertext  and  hypermedia  data  management  in  the  Macintosh 
computer  with  a  hypercard  application  has  many  users,  including  the  ARGOS  project 
being  developed  at  Naval  Postgraduate  School  [REF13].  The  hypertext  and  hypermedia 
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data  management  uses  the  hierarchical  data  stmcture  approach,  in  which  users  cannot 
query  the  data  as  done  in  the  conventional  DBMSs,  but  have  to  follow  the  hierarchical 
tree  structure  to  process  a  media.  As  a  result,  the  users  might  easily  get  lost  during  a 
process.  Additionally,  hypertext  requires  an  interpreter  to  process  the  user  commands. 
Furthermore,  the  hypertext  and  hypermedia  data  cannot  be  accessed  by  other  users,  as  in 
the  database  systems,  because  they  are  designed  to  work  only  on  personal  computers  in 
the  single  user  environment.  MDBMS,  which  is  a  DBMS  introduced  in  [REF6]  with  the 
extended  capability  to  process  the  multimedia  data,  was  designed  to  overcome  the 
restrictions  and  disadvantages  of  hypertext  and  hypermedia  systems. 

C  THE  SCX)FE  OF  THE  THESIS 

The  overall  design  of  the  MDBMS  prototype  was  a  team  effort  and  is  given  in  the 
thesis  by  Wuttipong  Pongsuwan  [REFIO],  Yavuz  Atila  [REFl]  and  Su-Cheng  Pei  [REFS] 
but  different  parts  appear  on  different  levels  of  details.  In  [REFIO]  the  retrieval  process 
is  given,  in  [REFl]  the  management  of  sound  data  is  described,  and  in  [REFS]  table 
creation  and  data  insertion  is  given.  Modify,  delete,  graphical  user  interface  design  is 
given  in  the  accompanying  thesis  [REF12]  and  [REF9]. 

An  impOTtant  aspect  of  an  MDBMS  is  the  retrieval  process.  In  the  existing  MDBMS 
prototype,  if  a  query  references  only  formatted  data,  it  is  passed  to  INGRES  directly,  but, 
if  a  query  includes  media  data  then  the  query  is  decomposed  into  multiple  subqueries. 
Each  of  the  subqueries  is  individuaUy  processed,  and  the  intermediate  results  are 
recomposed  to  form  the  final  result  to  be  given  to  the  user.  However,  the  early  prototype 
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version  did  not  support  complex  queries.  This  thesis  will  concentrate  on  complex  queries 
such  as  nesting  conditions  and  multiple  selections. 

This  thesis  is  organized  in  six  chapters  and  three  appendices.  The  next  chapter, 
Chapter  H,  gives  a  survey  of  previous  work  done  in  the  MDBMS  project.  Chapter  III 
reports  the  modularization  of  the  MDBMS  prototype  program  code.  Chapter  IV  will  give 
the  design  for  complex  query  processing.  Chapter  V  will  present  the  implementation  of 
complex  query  processing.  Chapter  VI  will  give  the  conclusion  and  summary  along  with 
a  brief  statement  of  other  woik  planned  or  in  progress.  Appendix  A  will  present  a 
comprehensive  example  for  the  retrieval  process  using  complex  queries.  Appendix  B  will 
give  the  generation  of  embedded  SQL  code  for  complex  queries,  and  finally  Appendix 
C  will  present  the  program  code. 
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n.  SURVEY  OF  PREVIOUS  WORK 


As  mentioned  in  the  previous  chapter,  multimedia  data  consists  of  media  data  such 
as  image,  text,  voice,  signals,  etc.  in  addition  to  formatted  data.  A  multimedia  database 
management  system  (MDBMS)  is  defined  as  a  system  that  manages  all  multimedia  data 
and  provide  mechanisms  to  handle  concurrency,  consistency,  and  recovery  in  addition  to 
providing  a  query  language  and  query  processing.  In  this  chapter  we  present  the  data 
organization  for  multimedia  objects,  integration  of  conventional  and  multimedia  data, 
architecture  of  the  MDBMS  prototype,  natural  language  understanding  capabilities  in  the 
parser  which  are  required  for  the  content  retrieval  of  multimedia  data,  and  finally  the 
retrieval  component  of  the  prototype  implemented  so  far. 

A.  DATA  ORGANIZATION  FOR  MULTIMEDIA  OBJECTS 

Despite  differences  in  data  model  and  implementation  aspects,  all  research  projects 
have  decided  to  organize  multimedia  data  using  the  ADT  concept.  This  is  generally 
accepted  as  an  adequate  approach.  However,  none  of  the  projects  have  addressed  the 
problem  of  content  retrieval  of  multimedia  data. 

The  fundamental  difficulty  in  handling  multimedia  data  is  intrinsically  tied  to  a  very 
rich  semantics.  To  illustrate  such  a  difficulty,  let  us  look  at  an  image  of  ships.  Given  such 
a  picture,  how  are  we  to  know  what  type  of  ships  are  in  the  picture.  In  other  words,  are 
the  ships  destroyers,  cruisers,  submarines  ot  passenger  ships?  As  another  example,  let  us 
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suppose  that  we  have  a  picture  of  soldiers.  How  do  we  know  that  the  soldiers  are  fighting 
in  a  war  or  they  are  performing  an  exercise? 

To  answer  queries  posed  on  images,  for  example,  a  person  must  draw  from  a  very 
rich  experience  encountered  in  life  to  derive  a  good  answer.  One  must  have  a 
sophisticated  technique  to  analyze  the  contents  of  the  images  to  get  the  semantics  of 
different  things  in  the  images.  Today’s  technology  does  not  allow  systems  to  have  this 
kind  of  capability  to  answer  multimedia  queries.  However,  we  can  use  both  Artificial 
Intelligence  (AI)  and  Information  Retrieval  (IR)  technology  to  do  the  next  best  thing.  We 
can  abstract  the  contents  of  the  multimedia  data  into  words  or  text  and  use  the  text 
description  equivalent  of  the  original  multimedia  data  to  match  the  user  query.  This  is  the 
principle  used  in  the  design  of  the  MDBMS  prototype  to  handle  multimedia  data  for 
different  applications.  Figure  2.1  shows  the  format  of  image  data  and  Figure  2.2  shows 
the  format  of  sound  data;  both  of  them  consist  of  the  registration,  raw  and  description 
data. 

Raw  data  is  the  bit  string  representation  of  the  image,  sound,  signal,  etc.  obtained 
from  scanning  or  digitinng  the  original  multimedia  data.  Registration  data  generally 
enhances  the  information  about  raw  data  and  is  not  redundant.  Description  data  describes 
the  contents  of  the  multimedia  data  and  cannot  be  automatically  derived  by  the  computer 
with  today’s  technology.  The  description  data  for  multimedia  data  is  to  be  supplied  by 
users. 
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IMAGE 

Registration  data 

Height,  Width,  Depth,  Colonnap,... 


Raw  data 

Matrix  of  pixels 


Descr^tion  Data 

green  eyes,  black  hair,  tall  person,... 

Hgore  2.1  Stmcture  of  an  Image  Object 
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SOUND 


Hgare  22  Structure  of  a  Sound  Object 
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B.  INTEGRATION  OF  CONVENTIONAL  AND  MULTIMEDIA  DBMS 

The  relational  model  has  been  selected  as  a  basis  to  design  and  build  the  MDBMS 
prototype  since  the  relational  model  is  well  known  and  widely  used  and  has  a  firm 
thecH^tical  basis. 

When  a  relation  has  an  attribute  with  a  media  type  (i.e.,  data  type  of  the  atnibute: 
sound  or  image),  then  an  additional  relation,  called  media  relation,  has  to  be  created  for 
storing  registration  and  description  data  as  shown  in  Figure  2.3.  For  each  attribute  with 
media  data  type  a  separate  media  relation  is  created. 


OBJECT 


o.id 


I^ioto 


voice 


PHOTO 


Ud 

filejd 

descr^on 

bight 

width 

depth 

VOICE 


s_id 


filejd 


size 


si^le.iatd  encodind  duration  lesol. 


Hgure  2.3  Schema  for  Modeling  Rdationship  between  Standard 
Objects  and  Media  CH>j6Cts 
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In  Figure  2.3  the  relation  called  OBJECT  has  the  media  attributes  photo  and  voice 
in  addition  to  other  attributes  with  conventional  data  types.  For  the  photo  attribute  a 
media  relation  is  created  and  named  after  its  attribute  name,  namely  PHOTO.  The 
PHOTO  relation  has  i_id  as  the  table  key  linking  the  PHOTO  relation  to  the  OBJECT 
relation.  It  also  has  the  attributes  file_id  with  the  path  to  the  file  where  the  raw  data  for 
the  image  object  is  kept,  description  which  is  natural  language  description  of  the  content 
of  the  image,  and  also  height,  width  and  depth  which  constitute  the  registration  data  part 
of  the  image  object.  In  the  same  way,  for  the  voice  attribute  of  the  OBJECT  relation 
another  media  relation  called  VOICE  is  created.  The  VOICE  relation  has  the  attributes 
s_id  as  the  table  key,  file.id  showing  the  path  to  the  file  where  the  raw  data  for  the  sound 
object  is  kept,  description  describing  the  content  of  the  sound  object  and  finally  size, 
sample.rate,  encoding,  diu^tion  and  resolution  as  the  registration  data  part  of  the  sound 
object 


C.  ARCHTTECrURE  OF  THE  MDBMS 

In  this  section  we  will  present  various  components  of  the  MDBMS  prototype.  The 
components  of  the  MDBMS  are  User  Interface,  Query  Processor,  Data  Access  Subsystem 
and  Intelligent  Retrieval  Subsystem  (See  Figure  2.4). 

The  Data  Access  Subsystem  consists  of  Conventional  Data  Manager  and  Media 
Data  Manager  and  controls  the  access  to  the  actual  data  stored  in  relational  and  media 
DBMS.  The  Intelligent  Retrieval  Subsystem  is  composed  of  Parser,  Generator,  Matcher 
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Data  Access  Subsystem  Intelligeat  Retrieval  Subsystem 


Hgure  2.4  AichitBcture  of  die  MDBMS  Ftototype 

and  Description  Manager.  The  Query  Processor  accepts  queries  the  user  and 
executes  them  by  calling  the  other  components.  When  a  new  description  for  a  media  data 
is  entered,  for  example,  the  query  processor  calls  the  parser.  The  parser  uses  the 
dictionary  to  produce  Hrst-order  predicates  and  return  them  to  the  query  ptooeuor.  The 
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query  processor,  then,  hands  the  predicates  over  to  the  description  manager  which  links 
the  description  to  its  multimedia  data. 

When  the  query  processor  receives  a  query,  the  first  task  is  to  decompose  the  query 
into  subqueries  each  affecting  only  conventional  or  media  part  but  not  both.  The 
conventional  subquery  is  directly  passed  to  the  conventional  data  manager  without  any 
modifications.  For  the  text  description,  the  query  processor  calls  the  natural  language 
parser  to  obtain  the  equivalent  query  predicates.  The  predicates  are  then  passed  to  the 
matcher.  The  matcher  tries  to  match  the  query  with  the  qualified  multimedia  data  by 
comparing  the  predicates  of  the  query  with  that  of  the  stored  multimedia  data.  The 
matcher  does  this  by  calling  the  description  manager  and  using  domain  knowledge.  As 
the  solution  to  the  natural  language  part  of  a  query,  the  query  processor  receives  links  to 
the  qualified  multimedia  data.  After  combining  them  with  the  results  of  the  conventional 
subquery  the  final  results  are  retrieved  by  the  Data  Access  Subsystem. 

The  conventional  data  manager,  media  object  manager,  description  manager,  parser, 
matcher  and  part  of  the  query  processor  have  already  been  implemented  as  part  of  the 
MDBMS  prototype  [REF6,  REF7,  REF8]. 

D.  NATURAL  LANGUAGE  UNDERSTANDING  IN  THE  PARSER 

In  this  section  we  present  the  natural  language  understanding  capabilities  of  the 
parser.  In  order  to  accomplish  the  goal  of  content  retrieval  of  multimedia  data,  complete 
understanding  of  natural  language  is  not  necessary.  However,  a  restricted  interpretation 
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is  necessary  and  this  is  done  by  the  parser  component  using  the  application  dependent 
dictionary  as  a  semantic  basis. 


1.  Natural  Language  Description  fOT  Multimedia  Data 

Retrieval  of  multimedia  data  is  performed  by  matching  the  natural  language 
descriptions  with  the  query  specifications.  We  believe  that  unrestricted  natural  language 
processing  is  very  difficult  to  accomplish  given  the  AI  technology  today.  We  found  that 
the  language  needed  to  describe  multimedia  data  is  much  more  formal  than  everyday 
English.  Hence,  instead  of  natural  language  descriptions,  we  use  captions  to  describe 
multimedia  data.  Captions  are  a  natural  but  special,  stylized  way  of  writing  descriptions 
with  a  subset  of  natural  language  and  not  as  difficult  to  parse  and  interpret  as  general 
natural  language. 

Additionally,  for  a  particular  multimedia  application  the  universe  of  discourse 
is  usually  quite  constrained.  Nouns  tend  to  be  concrete  and  most  multimedia  databases 
emphasize  still  photographs  and  other  fixed  time  graphics  to  which  few  verbs  can  be 
applied  thereby  easing  a  difficult  aspect  of  natural  language  processing.  The  important 
thing  is  that  we  use  natural  language  only  to  access  entities  in  a  database  making 
complete  understanding  of  all  aspects  of  a  word  unnecessary. 

2.  Dictionary 

Besides  the  captions  themselves,  the  MDBMS  prototype  requires  auxiliary 
infOTtnation  from  a  dictionary.  The  dictionary  or  lexicon  is  necessary  for  parsing  and 
gives  each  possible  natural  language  word  its  semantic:  its  part  of  speech,  its  grammatical 
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fonn  and  the  form  of  literals  needed  to  represent  it  Many  of  the  words  for  example, 
conjunctions  and  qualifying  adjectives  are  consistent  in  meaning  across  a  wide  range  of 
domains;  thus  we  can  borrow  their  interpretation  from  existing  natural  language  systems 
and  include  them  in  every  dictionary.  The  words  that  significantly  change  between 
applications  are  nouns  and  few  verbs,  need  to  be  defined  for  every  applications  domain 
separately,  but  mosdy  their  meaning  is  straightforward.  To  simplify  matching,  we  try  to 
limit  the  properties  and  relationships  to  a  small  set  of  primitives,  for  example  we  will  not 
distinguish  between  the  relationship  asserted  by  the  terms  ’within’,  ’inside’,  ’pan  of, 
’ctmtaining’,  ’including’  and  ’compromising’.  This  can  be  done  without  loss  because  in 
mder  to  achieve  efficient  retrieval  it  is  not  necessary  to  capture  the  full  meaning  of  an 
English  expression,  but  just  the  main  intent 

The  dictionary  is  an  important  pan  of  the  system  which  is  application 
dependent  In  order  to  allow  an  interpretadon  of  natural  language  captions  it  defmes  the 
domain  of  each  application  thus  restricting  their  vocabulary,  the  semantics  and  the 
knowledge  of  the  system  to  qiply  all  the  information. 

3.  Natural  Language  Inteipretatioa 

The  parser  translates  the  text  description  into  a  set  of  predicates  called  meaning 
list.  The  imprecisicm  and  ambiguity  of  the  natural  language  descriptions  is  reduced 
considoably  by  transfcmning  them  into  a  set  of  predicates.  These  predicates  state  facts 
about  the  real  wmrld  entities  involved  with  multimedia  data  like  their  properties  and 
relationships.  As  in  most  parsing  methods,  we  chose  first-order  predicate  calculus  as  a 
formal  representation  of  the  description  data.  The  parser  depends  on  the  dictionary  to  turn 
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the  descriptions  into  predicates.  It  is  the  parser’s  task  to  use  the  dictionary  to  resolve 
synonyms  and  to  check  the  syntactic  context  to  resolve  lexical  ambiguities. 

Other  important  features  of  the  parser  are  the  use  of  supercaptions,  a 
generalization  of  captions,  and  frames  for  stereotypical  actions,  allowing  a  set  of 
predicates  to  be  derived  from  terms  in  the  description. 

The  current  implementation  of  the  parser  uses  augmented-transition  network 
parsing  and  interpretation  routines.  It  is  implemented  in  Quintus  Prolog  and  running  on 
a  SUN  SPARC  workstation.  The  details  of  the  parser  and  the  predicates  are  beyond  the 
scope  of  this  thesis  and  are  given  in  [REF6,  REFll]. 

An  example  of  a  natural  language  description  and  its  translation  into  an 
equivalent  set  of  predicates  using  the  parser  is  shown  below: 

Description:  "A  cruiser  with  long_range  missiles" 

Predicates:  ship(x),  component(x,y),  missiles(y),  distance(y,long_range) 
Choosing  the  right  set  of  predicates  is  a  very  difricult  task  which  is  comparable 
to  knowledge  acquisition  for  expert  systems.  For  the  purposes  of  this  thesis,  it  is  sufficient 
to  assume  that  the  dictionary  lists  all  the  words  the  parser  can  recognize,  all  parts  of 
speech  associated  with  any  word,  and  the  predicates  to  use  when  a  word  appears  in  a 
description.  Thus,  the  set  of  all  predicates  that  can  be  used  in  the  descriptions  must  be 
defined  in  the  dictionary. 
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E.  RETRIEVAL  PROCESS 


Retrieval  is  the  most  important  operation  in  a  MDBMS.  In  the  existing  MDBMS 
only  simple  SQL  selections  are  implemented.  As  mentioned  earlier,  if  a  user  query 
involves  only  formatted  data  then  it  is  directly  passed  to  INGRES.  However,  if  a  query 
includes  media  data  then  it  is  decomposed  into  multiple  subqueries.  Each  of  the 
subqueries  is  individually  processed,  their  results  are  kept  in  temporary  result  tables  and, 
Enally,  the  results  of  all  subqueries  are  recomposed  to  give  the  final  result  to  the  user. 
The  existing  system  [REFIO]  did  not  support  complex  queries  such  as  nesting  conditions 
and  multiple  selections. 

Nesting  condition  means  one  or  more  queries  are  placed  inside  another  query.  The 
inner  query  is  called  subqueiy  and  the  encapsulating  one  is  called  outer  query.  The  depth 
of  nesting  condition  may  be  arbitrary  according  to  the  need. 

Multiple  selections  can  be  presented  in  disjunctive  normal  form  by  using  the 
Boolean  operator  ’and’  inside  each  group,  and  the  Boolean  operator  ’ot’  between  groups. 
There  may  be  one  or  more  conditions  inside  each  group  and  there  may  be  one  or  more 
groups  in  a  query. 

The  design  and  implementation  of  nesting  conditions  and  multiple  selections,  which 
have  not  been  supported  by  the  MDBMS  prototype  so  far,  will  be  presented  in  Chapter 
TV  and  Chapter  V  of  this  thesis  in  detail. 
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m.  MODULARIZATION 


A.  GENERAL 

When  the  Multimedia  Database  Management  System  was  growing  and  the  number 
of  people  working  on  the  system  increased,  we  needed  a  better  way  of  structuring  the 
system.  We  decided  that  the  best  way  was  to  divide  the  MDBMS  program  code  into 
smaller  units  and  get  each  person  to  work  on  his  part  separately  without  interfering  with 
other  people’s  parts.  In  this  chapter  we  will  first  present  the  general  concepts  of 
modularization.  Then,  we  will  show  how  we  used  the  C  progranuning  language  to 
implement  the  MDBMS  prototype  to  achieve  modularization.  Since  modularization  of  the 
MDBMS  prototype  was  a  team  effort,  this  chapter  will  also  be  included  in  [REF12]. 

1.  What  is  Modularization? 

Modularization  is  the  process  of  structuring  programs  (i.e.  data  structures  and 
functicHis)  by  dividing  them  into  smaller  units  called  noodules.  A  module  is  a  collection 
of  related  programming  language  entities  (procedures,  types,  and  so  on).  The  different 
modules  of  a  program  are  in  relationship  with  each  other  resulting  in  a  module  hierarchy. 
Modules  on  a  higher  level  of  the  hierarchy  use  functions  or  procedures  of  lower  level 
tiKxiuIes. 

2.  Why  do  we  need  Modularization? 

A  program  which  does  not  consist  of  substructures  is  hard  to  understand. 
Dividing  a  program  into  modules  makes  it  easier  to  follow.  Division  of  labor  among 
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people  shortens  the  time  to  complete  a  project.  When  need  arises  to  change  the  program 
code,  changing  one  or  a  few  modules  will  be  enough  to  get  the  desired  result.  When  a 
new  system  is  to  be  built,  it  is  possible  to  reuse  nnodules  of  a  previous  system.  Testing 
of  modules  is  easier  than  testing  a  program  code  without  any  structure.  In  the  following 
part  we  will  discuss  the  advantages  of  modularization  in  detail. 

a.  Conqnehensibility 

A  system  with  no  substructure  is  hard  to  understand.  Years  of  experience 
shows  that  modules  with  high  cohesion  and  low  coupling  supply  designers  with  easier-to- 
understand  systems.  High  cohesion  means  that  the  functions  and  objects  within  a  module 
are  closely  related  to  each  other.  Low  coupling  means  that  each  module  interacts  with 
some  others  through  a  narrow  interface. 

b.  Division  of  Labor 

To  complete  a  large  task  in  a  reasonable  time,  it  must  be  divided  among 
the  people  participating  the  project.  This  can  be  done  using  modules  as  basic  units.  Each 
module  given  to  a  person  of  the  project  should  be  small  enough  to  be  implemented  within 
a  relatively  short  period  of  time.  If  the  implementation  of  a  module  would  take  too  long, 
then  it  is  necessary  to  break  it  into  smaller  pieces. 

c.  Reqxmse  to  change 

Change  is  a  fundamental  characteristic  of  software  systems.  Users  may 
ask  new  features  or  changes  to  old  ones;  the  system  may  move  to  new  hardware  or  a  new 
operating  system;  bugs  may  be  discovered  during  testing;  performance  measurements  may 
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show  bottlenecks.  All  these  changes  done  to  an  existing  software  system  cost  large 
amounts  of  money.  Modularization  makes  it  easier  to  do  changes.  Changing  a  module, 
instead  of  changing  the  whole  system  gives  the  desired  result. 

d.  Reusability 

When  you  build  a  new  system,  you  may  need  the  same  functionality  that 
you  used  in  a  previous  system.  For  instance,  a  module  for  string  utility  functions  or  I/O 
functions  will  be  useful  for  many  applications.  Instead  of  rewriting  these  modules,  it  saves 
much  effort  if  you  can  reuse  modules  of  a  previous  system. 

e.  Eaaer  to  test 

Smaller  parts  are  easier  to  debug.  In  a  large  system  each  module  should 
be  tested  individually,  and  large  collections  of  modules  should  be  slowly  built  up  to  test 
the  whole  system.  E>ebugging  is  the  search  for  defects;  it  often  involves  a  lot  of  detective 
work.  Testing  has  much  broader  scope,  and  usually  assumes  you  have  finished  most  of 
the  debugging.  Testing  may  uncover  problems,  which  may  lead  to  further  debugging. 

In  addition  to  these  advantages,  modularization  can  be  used  to  achieve 
two  basic  principles  in  systems  development  information  hiding  and  abstraction  (  or 
encapsulation).  The  principle  of  information  hiding  is  that  each  module  hides  some  design 
decision.  If  the  design  decision  changes,  then  only  the  module  hiding  the  design  decision 
need  to  be  changed.  All  other  modules  using  the  changed  module  do  not  need  to  be 
changed.  Information  hiding  and  abstraction  focus  on  different  aspects.  Information  hiding 
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focuses  on  what  to  hide;  abstraction  focuses  on  what  to  reveal.  Infoimation  hiding  tries 
to  protect  you  from  change;  you  ask  what  design  decisions  might  change,  and  arrange  to 
hide  them  so  you  cannot  depend  on  them.  The  sorts  of  decisions  one  might  hide 
include: 

•  The  algorithm  for  carrying  out  some  operation. 

•  The  representation  of  some  data  structures. 

•  The  details  of  an  interface  to  an  operating  system,  or  to  special  purpose  hardware. 

•  The  policy  for  allocating  some  resource  or  ordering  certain  operations. 

Every  abstract  data  type  is  an  information  hiding  module;  however  a 
module  may  not  be  an  abstract  data  type.  A  module  can  also  be  a  set  of  unrelated 
functions.  An  abstract  data  type  module  provides  a  collection  of  procedures  for 
manipulating  the  encapsulated  data  structure.  For  example,  a  module  might  hide  the 
representation  of  a  stack.  It  would  provide  operations  for  pushing  elements  onto  a  stack, 
popping  elements  off  the  stack,  reading  the  top  element  of  the  stack  and  initializing  the 
stack.  These  four  functions  are  called  the  intoface  procedures  of  the  module. 

3.  ifow  to  modularize 

Now,  we  need  to  address  how  to  achieve  a  modular  system.  In  decomposing 
a  system  into  modules  five  phases  are  necessary: 

a.  Identify  major  groups  of  design  decisions,  subgroups  within  those  groups, 
and  so  on.  These  become  the  higher  levels  of  the  module  hierarchy,  and  chapters,  sections 
and  so  forth  of  the  decomposition  document.  The  decomposition  document  records  the 
division  of  the  system  into  modules.  It  is  used  as  a  baseline  document  for  detailed  design. 
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b.  Identify  all  the  major  design  decisions  in  your  project,  and  record 
modules  that  hide  them  in  the  decomposition  document.  These  become  the  leaves  of  the 
module  hierarchy. 

c.  Estimate  the  size  of  each  module.  If  it  seems  too  large  for  one  person  to 
handle,  break  it  into  smaller  pieces. 

d.  The  results  of  the  previous  phase  are  separate  modules.  Now,  the 
dependencies  between  modules  need  to  be  specified.  A  module  dependency  document 
defines  the  module  dependencies  and  describes  a  module  hierarchy.  Yigare  3.1  shows 
how  a  module  hierarchy  might  look  like.  A  module  hierarchy  reflects  the  structure  of  the 
whole  system.  Each  box  represents  a  module  and  each  line  connecting  two  modules 


Hgine  3.1.  An  Exanq>le  Module  Hierarchy 
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represent  a  dependency  between  modules.  For  example  in  Figure  3.1  Module  1  calls 
modules  Module  2,  Module  3  and  Module  4.  Module  1  is  at  the  first  level  of  the 
hierarchy  while  Module  2,  Module  3  and  Module  4  are  at  the  second  level  of  the  module 
hierarchy  and  so  on. 

e.  The  last  phase  is  to  identify  for  each  module  the  relationship  with  other 
modules.  To  make  the  dependencies  between  modules,  import  and  expon  interfaces  are 
added  to  the  documentation  header  of  each  module.  In  the  import  interface  of  each 
module,  functions  that  are  called  from  other  modules  are  placed.  The  export  interface 
summarizes  the  functionality  provided  by  a  module.  In  the  export  interface  of  each 
module,  functions  that  can  be  used  by  other  modules  take  place.  Each  module  in  the 
module  hierarchy  is  structured  as  follows  (  Figure  3.2): 


module  name 

esqxst  inteEfBoe 
iiE|iact  interface 
module  bocfy 


Figure  3,2  Stmctme  of  a  Module 

export  interface ;=export  <function  l>,<function2>,... 
import  interface:=import  <function  1>,  <function2>,... 
from  module  <module  1> 
import  <function  1>,  <function  2>,... 
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from  <module  2> 


module  body:=  implementation  of  the  exported  functions  by  using  the 

imported  functions  (including  not  exported  functions  and 
data  structures) 

B.  MODULARIZATION  OF  C  PROGRAMS 

C  programming  language  (Kemighan  and  Ritchie  C)  was  chosen  to  implement 
MDBMS  when  the  studies  began  on  the  prototype  in  1988.  However,  C  does  not  support 
noodularization.  The  only  thing  that  can  be  done  is  to  divide  the  program  code  in  parts 
and  store  them  in  separate  files.  This  allows  the  user  to  use  separate  compilation  or  the 
include  mechanism  provided  by  the  C  language. 

Files  were  not  designed  as  mechanism  for  information  hiding  and  data  abstraction. 
They  were  provided  as  a  facility  to  support  program  partitioning  and  independent 
compilation.  Files  containing  components  of  a  C  program  (functions,  declarations  and 
definitions)  can  be  compiled  independently.  Independently  compiled  program  components, 
along  with  precompiled  library  functions,  can  be  linked  together  to  produce  a  complete 
program. 

Since  C  files  can  be  compiled  independently,  it  is  convenient  to  partition  large  C 
programs  into  smaller  and  more  manageable  parts  to  achieve  some  advantages  of  the 
nnodularization  concept.  Independent  compilation  allows  files  containing  C  program 
components  to  be  checked  separately  for  syntactic  and  semantic  errors.  Moreover,  when 
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a  program  is  modified,  it  is  only  necessary  to  recompile  the  effected  components.  The 
Unix  utility  ’make’  is  used  to  automate  this  process. 

C  nies  can  be  used  to  partly  implement  data  abstraction  and  information  hiding.  An 
abstract  data  object,  as  defined  in  the  previous  section,  is  an  object  that  can  be 
manipulated  using  only  the  operations  supplied  by  the  definer  of  the  object.  The  user 
cannot  directly  manipulate  the  underlying  implementation  of  an  abstract  data  object. 
Details  of  how  an  abstract  data  object  is  implemented  are  hidden  from  the  user.  Hiding 
the  details  prevents  the  user  from: 

•  making  programs  dependent  on  the  representation.  The  representation  of  an  abstract 
data  type  can  be  changed  without  effecting  the  rest  of  the  program.  For  example, 
the  abstract  data  type  set  may  be  initially  implemented  as  an  array,  but  this 
representation  may  be  changed  to  an  ordered  list  later  on  for  storage  efficiency. 

•  accidentally  or  maliciously  violating  the  integrity  of  an  abstract  data  type  object. 
Integrity  of  abstract  data  type  objects  is  preserved  by  forcing  the  user  to  manipulate 
these  objects  using  only  the  operations  provided  by  the  designer  of  the  abstract  data 
type. 

Examples  of  abstract  data  types  are  stacks,  queues,  sets,  databases  and  binary  trees. 
However,  a  C  file  is  not  a  true  data  abstraction  facility,  because  it  only  partiaUy 
supports  data  abstraction.  If  you  link  an  independently  compiled  C  module  to  some  other 
parts,  you  can  not  prevent  the  user  from  accessing  all  functions  and  even  the  internal  data 
structures  of  other  modules. 

The  other  mechanism  used  to  achieve  some  kind  of  rrxxlulariruition  is  the 
include  mechanism.  Arbitrary  files  can  be  textually  included  in  a  C  program  by  means 
of  the  include  instruction.  The  capability  to  include  files  textually  in  a  program  allows 
common  constant,  data,  type  and  function  declarations  and  definitions  to  be  kept  in 
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sq)arate  Hies.  These  common  declarations  and  definitions  can  then  be  used  in  all  parts 
of  the  program.  Keeping  common  declarations  and  definitions  in  separate  files  and  then 
including  them  in  C  programs  is  a  popular  style  used  for  writing  C  programs.  A  common 
example  is  the  standard  input/output  declaration  file  stdio.h. 

As  mentioned  before,  although  the  C  language  does  not  support  modularization  we 
can  achieve  the  following  advantages  by  dividing  the  existing  program  code  into  separate 
parts: 

•  Programs  modules  can  be  developed  independently. 

•  Changes  to  the  program  can  be  done  by  only  changing  single  modules. 

•  Clarity  of  design  and  structure. 

•  Program  code  is  easier  to  understand. 

•  Maintainability. 

•  Reusability  of  noodules. 

•  Uniformity. 

C  MODULARIZATION  OF  MDBMS 

As  mentioned  in  the  previous  section,  the  C  language  was  chosen  to  implement  the 
MDBMS  prototype.  When  we  started  to  inclement  the  complex  query  processing,  the 
program  code  was  mainly  in  one  file.  Considering  the  size  of  the  program  and  that 
multiple  students  are  working  on  three  diffovnt  parts  of  the  project,  namely  complex 
query  processing,  graphical  user  interface,  noodify  and  delete,  we  decided  to  modularize 
the  MDBMS  prototype. 
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Before  starting  the  modularization,  the  module  hierarchy  of  the  MDBMS  program 
code  was  as  shown  in  Figure  3.3.  First  of  all  we  divided  the  existing  program  code  in 
separate  tiles  corresponding  to  their  purpose.  Then  we  divided  each  part  again  until  we 
obtained  the  tinal  module  hierarchy  (Figure  3.4). 


defines  Ji 

enoisJi 

_ 

_ 1 

Figure  33  Module  Hierarchy  of  MDBMS  at  the  beghuung 

The  MDBMS  module  hierarchy  now  consists  of  6  levels.  In  Figure  3.4,  each  box 
represents  a  module.  For  instance,  the  module  ’MDBMS’  which  is  the  main  program  calls 
the  modules  ’Catalog  Management’,  ’Create’,  ’Insert’,  ’Modify’,  ’Delete’,  ’Retrieve’  and 
’Connect’.  In  the  diagram  the  straight  lines  show  the  dependencies  between  modules. 
Although  the  module  ’MDBMS ’which  is  at  the  first  level  of  the  hierarchy  calls  the 
iiKxlule  ’Retrieve’  which  is  at  the  third  level  of  the  hierarchy,  the  dependency  is  not 
shown  on  the  diagram  in  order  not  to  further  complicate  the  module  hierarchy  diagram. 
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Hgare  3.4  Module  Hierardiy  of  MDBMS 
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There  is,  however,  still  much  to  do  on  modularization.  Considering  the  time  we 
needed  to  complete  our  part  (i.e.,  complex  queiy  processing)  we  stopped  working  on 
modularization  at  this  point. 

To  make  the  dependencies  between  the  different  parts  of  the  MDBMS  program 
visible,  we  have  added  import  and  export  interfaces  in  the  documentation  header  of  each 
module  (Figure  3.5). 

In  the  export  interface  of  each  module,  functions  that  can  be  used  by  other  modules 
are  placed.  The  export  interface  therefore  summarizes  the  functionality  provided  by  a 
module.  For  example,  the  function  print_all_tableO  taking  place  in  the  export  interface 
of  ’Insert’  Module  can  be  called  by  the  ’Retrieve’  Module. 

In  the  import  interface  of  each  module,  functions  that  are  called  from  other  modules 
are  mentioned.  For  instance,  the  function  get_sooiid_yalueO  taking  place  in  the  import 
interface  of  ’Insen’  Module,  is  called  from  the  ’User  Interface’  Module. 

In  addition  to  our  work  on  modularization,  we  also  used  some  helpful  tools 
provided  by  the  UNIX  system,  namely  sees,  lint,  make,  and  dbx.  Sees  is  a  version 
manager  which  allows  us  to  have  more  than  version  of  a  file.  If  you  want  to  try  another 
way  to  implement  a  module,  you  can  work  on  it  that  while  you  still  keep  the  older 
versions.  You  can  always  go  back  and  work  on  any  older  version  you  want.  The  first 
thing  in  order  to  use  sees  is  to  make  a  directory  and  call  it  SCCS.  To  create  the  first 
version  of  any  file  type  "sees  create  <filename>"  at  shell  prompt.  If  you  want  to  keep  a 
version  and  also  try  something  on  the  same  version  type  "sees  delget  <filename>".  At  this 
point  you  would  have  no  writable  copy  of  the  file.  To  see  how  many  versions  of  a  frle 
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**********************m**************************m****************m***** 


Title  :  InsertModule.c 

Authcr  :  Su  Cheng  Pei 

Dale  :  November  15,  1990 

History 

Desoriptioo  :  This  module  implements  the  insertion  process 

in  the  Multimedia  Database  System. 

*^t^^^^^t*^^%^^^,^t************************************************************* 


Export  Interface 

print_all_table()  :Prints  out  the  table  catalog  information  on  the 
screen. 

insert_tuple()  tinserts  a  tuple  of  a  particular  relation. 
display.tupleO  :Displays  the  tuple  tefore  insertion. 
check_media_description():Checks  the  media  description  by  connecting 
to  the  parser. 

ql_inseTt_tuple()  '.Translates  SQL  statement  to  insert  a  standard  tuple. 

*****mm*^t^****it********************************************************* 


Japan  Interface 

get_sound_value()  :Gets  a  sound  value  of  a  media  attribute  from  the 
user  input 

clr.scrO  ;Qears  the  screen. 

yes_no_answer()  ;Gets  yes  or  no  answer  fiom  the  user, 
from  Useiinteifrcex 

check_table_name():Checks  if  the  table  name  is  duplicate. 

get_media_nameO  :Gets  media  table  name  by  appending  table_key  at 
the  end  of  att.name. 
from  OreateModulex 

****4i**4i*«****4i*********4t*4i*4i4i*4i4i4i*4i*****4i4i4i4i«4i*4>**il>**4i4i4i**4<****4>*«4<4r4i4>* 


Hguie  3.5  Export  /  Inqxxt  Interfrce  of  a  Module 


you  have,  type  "sees  prs  cfilenamo".  To  select  a  version  and  have  a  writable  copy  of  a 
Ele,  type  "sees  edit  -reversion  number>  <filename>"  (for  instance  if  we  want  to  edit 
version  number  1.1.12.4  of  the  file  RetrieveModule.c,  we  should  type  "sees  edit  -rl. 1.12.3 
RetrieveModule.c").  To  see  which  versions  of  all  files  are  currently  being  edited,  type 
"sees  info”  only.  These  are  the  main  commands  for  using  sees. 


The  second  tool  we  used  was  lint.  During  the  compilation  of  C  programs  lint  helps 
to  find: 

•  unused  arguments, 

•  unused  variables, 

•  variables  which  are  set  but  not  used, 

•  inconsistendy  used  function  calls, 

•  always  ignored  function  returns,... 

We  put  the  lint  command  in  the  Makefile  so  during  compilation  lint  is  invoked 
automatically  by  the  Makefile.  See  Chapter  V.C  of  this  thesis  to  see  how  lint  is  used  in 
the  Makefile. 

The  third  utility  program  we  used  was  ’make*  which  is  a  command  generator.  Refer 
to  V.C  of  this  thesis  to  get  detailed  information  about  ’make’  and  its  use. 

The  last  tool  we  used  was  dbx.  Dbx  is  a  source-level  debugger.  It  helps  find  run 
time  errors  during  execution  of  a  program.  To  run  dbx,  type  "dbx  <executable  file 
namo".  To  run  the  program,  type  "run".  To  trace  in  a  function,  type  "trace  in  <function 


name>. 


IV.  DESIGN  OF  COMPLEX  QUERY  PROCESSING 
In  Chapter  n  of  this  thesis  the  general  architecture  of  the  MDBMS  prototype  is 
described  in  detail.  Basically,  it  was  an  attempt  to  broaden  the  database  handling 
capability  by  providing  the  integrated  support  of  both  formatted  and  media  data.  The 
design  of  complex  query  processing  is  done  based  on  the  architecture  presented.  However, 
several  resource  constraints  in  INGRES,  the  IBM  compatible  PC  and  the  SUN 
workstation  were  found  when  studies  started  on  the  MDBMS  and  these  restrictions 
influenced  the  design  and  implementation  of  the  prototype.  In  this  chapter  we  mention  the 
system  environment  and  give  a  sample  application.  Further,  we  present  the  design  of 
complex  query  processing  in  detail. 

A.  SYSTEM  ENVIRONMENT  AND  SAMPLE  APPUCATION 
1.  System  Environment 

The  MDBMS  prototype  was  built  on  top  of  INGRES  to  suppon  formatted  and 
multimedia  data.  INGRES  acts  as  the  manager  for  the  data  storage.  However,  INGRES 
has  a  lot  of  restrictions: 

•  INGRES  does  not  support  ADT,  the  approach  selected  to  support  multimedia  data. 

•  INGRES  does  not  allow  its  users  to  get  the  catalog  information  readily. 

•  Although  INGRES  supports  embedded  SQL  in  host  C  language,  it  does  not  provide 
a  set  of  high  level  function  calls  available  to  the  users.  For  example,  the  embedded 
SQL  statements  are  pre-compiled  into  INGRES  low  level  code  for  execution.  It 
does  not  allow  the  relation  name  and  attribute  name  as  a  program  variable  in  the 
high  level  embedded  SQL  code. 
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INGRES  docs  not  support  set  operations  such  as  UNION,  INTERSECTION  and 
MINUS  (i.e.,  difference  of  two  tables).  UNION  and  INTERSECTION  are  of  great 
importance  to  be  able  to  design  and  implement  complex  queries. 


Although  more  recent  versions  of  INGRES  have  removed  some  of  these 
restrictions,  a  significant  recoding  effort  would  be  required  for  using  the  new  version. 
However,  some  coding  effort  had  to  be  done,  as  we  will  also  mention  later  in  this  chapter, 
to  extend  the  capabilities  of  the  INGRES  SQL  for  supporting  the  set  operations  UNION, 
INTERSECTION  and  MINUS. 

In  the  meantime,  a  similar  situation  occurs  in  the  SUN  workstation.  New  SUN 
workstations  now  support  sound,  but  it  would  require  a  substantial  investment  to  purchase 
new  hardware  and  recode  the  prototype  source  code.  It  was  decided  that  instead  of  these 
investments,  the  PC  would  be  retained  to  manage  sound  data  and  would  be  incorporated 
into  MDBMS  prototype  as  a  backend  server  by  connecting  it  to  the  SUN  system  via  a 
local  network,  i.e.,  ETHERNET  [REFl]. 

Similarly,  to  capture  images,  a  video  card  which  works  with  a  camcorder  is 
installed  into  another  PC.  The  PC  first  captures  an  image  in  GIF  format.  This  file  is  then 
transferred  to  the  SUN  workstation  using  FTP  (File  Transfer  Protocol)  in  binary  mode. 
The  image  files  in  GIF  format  are  transformed  into  RASTER  format  by  software  before 
they  can  be  used  by  the  MDBMS  prototype.  A  iix>re  detailed  description  of  the  capturing 
process  of  the  images  is  described  in  [REFIO]. 

All  of  these  constraints  affected  the  design  and  implementation  of  the  MDBMS 
prototype.  Since  the  prototype  construction  is  not  intended  to  be  a  production  system  at 


33 


this  time,  and  because  the  current  system  is  enough  to  demonstrate  the  principles,  a 
decision  was  made  not  to  change  the  structure  of  the  system. 

2.  Saiiq;)le  Applicatitm 

Many  application  areas  increasingly  require  a  MDBMS  to  manage  both 
formatted  and  multimedia  data.  Examples  can  be  found  in  military,  publishing, 
entertainment  and  instructional  environments.  In  this  subsection,  we  present  a  sample 
application  which  can  be  considered  quite  typical  in  a  military  environment.  The  goal  is 
to  give  the  reader  a  better  understanding  in  the  design  and  implementation  of  complex 
queries  for  multimedia  processing. 

Let  us  assume  that  the  Chief  of  the  Navy  has  ordered  his  staff  to  keep 
information  about  Navy  ships,  weapons,  officers,  missions  of  the  ships  and  bases  of  the 
ships.  Suppose  we  want  to  store  in  the  database  the  names,  types,  ID’s,  displacements, 
mission  id’s  and  base  id’s  of  the  ships,  the  years  in  which  the  ships  are  built,  the  captains 
and  executive  officers  of  the  ships,  and  finally  the  pictures  of  the  ships.  Let  us  assume 
that  we  want  to  know  what  weapons  are  on  the  ships  and  the  weapons’  power,  fire  range 
and  the  weapons’  pictures.  As  for  the  officers,  their  names,  ranks,  ID’s,  salaries,  report 
dates  as  well  as  their  pictures  and  voices  should  also  be  kept  in  the  database.  Moreover, 
we  may  want  to  keep  in  the  database  the  name,  direction,  goal  and  task  related  to  each 
mission  and  also  the  name,  location,  and  size  of  each  Navy  base.  As  seen  from  this 
example,  besides  standard  data  types  we  also  have  media  types,  namely  image  and  sound. 
The  above  information  can  be  transformed  into  relations  in  a  database  as  shown  in  Figure 
4.1. 
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Hgnre  4.1.  Navy  Ship  Relatioiial  Database  Schemes 

The  primary  keys  (underlined)  of  the  relational  schemes  in  Hgure  4.1  are 
extemaUy  defined  by  the  MDBMS  user,  and  the  media  data  types  such  as  image  and 
sound  have  also  been  defined  as  data  types  supported  by  the  MDBMS  prototype.  As 
mentioned  earlier,  INGRES  is  used  to  store  all  the  data.  The  question  now  is  how  to  store 
media  data  types  in  INGRES  which  supports  only  standard  data  types?  The  solution  is 
to  express  media  data  types  in  terms  of  standard  data  types.  In  the  MDBMS  prototype, 
the  data  type  of  each  media  attribute  is  defined  as  INTEGER  internally.  The  content  of 
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the  media  type  is  an  integer  which  link  to  its  own  media  relation  that  is  not  transparent 
to  the  users.  These  integers  are  internally  generated  identifiers  for  the  tuples  in  the  media 
relations.  For  each  media  attribute,  a  media  relation  is  generated.  This  is  deemed  desirable 
since  putting  media  data  together,  i.e.,  images  from  different  relations,  does  not  produce 
any  benefit  but  actually  causes  the  system  to  degrade  in  performance.  Hence,  "picture" 
in  the  relation  OFFICER  requires  a  media  relation  and  picture  in  WEAPON  requires 
another.  Since  attribute  names  do  not  have  to  be  unique  across  relations,  we  must  find 
ways  to  name  the  two  PICTURE  relations  differently.  The  solution  is  to  append  the 
relation’s  internal  identifier  to  the  media  attribute  names.  Let  us  assume  the  SHIP’S 
internal  identifier  is  "1",  then  the  image  media  relation  for  the  attribute  "picture"  in  SHIP 
becomes  PICTUREl.  In  the  same  way,  to  each  media  table  is  assigned  a  name  resulting 
in  the  media  relations’  names  as  shown  in  Figure  4.2.  Note  that  all  the  media  tables  are 
invisible  to  the  users. 

Given  the  sample  application  above,  the  MDBMS  prototype  before  the  design 
and  implementation  of  complex  queries  was  able  to  respond  queries  as  follows: 

•  Retrieve  the  picture  and  voice  recording  of  the  captain  of  the  ship  "Kitty  Hawk”? 

•  What  are  the  names  of  the  ship  weapons  whose  fire  range  is  greater  than  200  miles 
and  whose  pictures  show  "long  range  missile  against  land  targets"? 

•  Which  ship  is  the  executive  officer  Rosenuuy  Stewart  stationed  at? 

•  Retrieve  the  pictures  and  names  of  the  ships  which  have  the  weapon  ’Trident". 
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Hgare  42,  The  Media  Relational  Database  Schemes  for  Media  Attributes  in 
Hgare  4.1 

However,  the  prototype  could  not  respond  the  types  of  queries  listed  below: 

•  Retrieve  the  pictures,  voice  recordings  and  names  the  captains  of  the  ships  "Kitty 
Hawk"  or  "Mississippi"? 

•  List  the  name  of  all  ships  which  have  the  weapon  whose  picture  shows  "high  speed 
guided  torpedo"  and  whose  fire  range  is  greater  than  1  mile  or  which  was 
commanded  by  Captain  "Huseyin  Aygun". 

•  Retrieve  the  voice  recordings  and  names  of  the  officers  whose  salary  is  greater  than 
30,000  but  who  are  not  captain. 

Now  let  us  look  at  how  these  queries  can  be  handled  in  the  order  they  are 


given: 
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•  Can  be  handled  using  multiple  selections. 

•  Can  be  handled  using  a  nested  query  inside  multiple  selections. 

•  Can  be  handled  using  set  operation  MINUS. 

Tlie  detail  infoimation  about  how  these  queries  and  other  complex  queries  can 
be  evaluated  will  be  given  in  the  next  section. 

B.  DESIGN  (»7  COMPLEX  QUERY  PROCESSING 

In  this  section  we  will  first  review  the  design  of  simple  queries  [REFIO],  then 
present  the  design  of  complex  queries,  namely  nesting  conditions  (i.e.4N,  NOT  IN, 
EXISTS,  NOT  EXISTS)  and  multiple  selections,  along  with  the  design  of  set  operations 
(i.e.,  UNION,  INTERSECT,  MINUS)  and  aggregate  functions.  Finally  give  an  example 
for  multiple  selections  including  nesting  condition.  With  om  approach  for  the  design  of 
complex  queries,  it  is  possible  to  have  nested  queries  up  to  arbitrary  depth  and  arbitrarily 
many  conditions  inside  each  group  and  arbitrarily  many  groups  for  multiple  selections. 

1.  Sinqtle  Queries 

In  this  subsection  we  review  simple  queries  which  have  already  been  designed 
and  implemented  by  [REFIO].  Further  we  will  point  out  the  differences  of  simple  queries 
between  our  approach  and  the  approach  in  [REFIO]. 

As  mentioned  earlier,  if  a  quay  includes  only  formatted  data,  it  is  directly 
passed  to  INGRES.  However,  if  a  query  includes  media  data  then  the  query  is 
decomposed  into  multiple  subqueries.  Each  subquery  is  then  individually  processed  and 
the  results  of  these  subqueries  are  recomposed  to  give  the  final  result  to  the  user.  Now 
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we  can  look  at  two  examples  -  one  with  only  formatted  data,  the  other  including  media 
data  in  addition  to  formatted  data  -  to  illustrate  what  we  have  just  said. 


1.  Query:  Which  Navy  ship  is  "Rosemary  Stewart"  stationed  at?  The  SQL 
statement  for  this  query  can  be  written  as  follows: 

SELECT  s_name 

FROM  ship,  officer 

WHERE  ship.exo_id=officer.o_id  and  o_name="Rosemary  Stewan" 

Since  this  query  contains  only  formatted  data,  no  decomposition  is  necessary 
and  it  is  directly  passed  to  INGRES  to  get  the  result. 

2.  Queiy:  Retrieve  the  names,  pictures  and  voice  recordings  of  the  executive 
officers  stationed  at  ships  whose  displacement  is  greater  than  40,000  and  whose  picture 
shows  "gas  turbine  powered  ship"?  The  extended  SQL  statement  for  this  query  can  be 
written  as  follows: 

SELECT  o.name,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=ship.exo_id  and  displacement  >  40,000  and  shppictute 
(CONTAINS,  "gas  turbine  powered  ship"); 

Since  the  above  query  contains  media  it  should  be  decomposed  into  subqueries. 
The  decomposition  process  is  shown  below: 

Create  table  T1  as  : 

SELECT  * 

FROM  ship,  officer 
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WHERE  officer.o_id=ship.exo_id  and  displacement  >  40,000; 

Create  table  Ml  as  : 

SELECT  Lid 
FROM  PICrUREl 

WHERE  PICrUREl  (CONTAINS,  "gas  turbine  powered  ship"); 

Create  table  RESULT  as  : 

SELECT  o_name,  picture,  voice 

FROM  Tl.  Ml 

WHERE  Tl.picture=Ml.i_id 

After  the  system  gets  the  final  result  which  is  an  INGRES  relation,  the  system 
will  generate  a  cursor  called  cursor.ou^t  to  print  out  the  data  one  tuple  at  a  dme.  If  the 
output  contains  any  media  data,  as  in  the  above  example,  the  RESULT  table  shows  us  the 
tuple  id’s  retrieved  firom  the  related  media  relation,  in  the  example  above  the  media 
relation  is  PICTURE!.  Later  the  system  displays  the  media  data  in  the  order  printed  out 
for  the  formatted  part  The  process  of  creating  and  using  a  cursor  is  as  follows: 

EXEC  SQL  CREATE  CURSOR  cursor_output  AS 
SELECT  ♦ 

FROM  RESULT 

EXEC  SQL  FETCH  CURSOR  cursor_ouq)ut; 

print  formatted  data; 

EXEC  SQL  CREATE  CURSOR  cursor.output  AS 
SELECT  media  data 


40 


FROM  RESULT 


EXEC  SQL  FETCH  CURSOR  cursor_output; 

display  pictures; 

play  voice  recordings; 

What  has  been  discussed  about  simple  queries  so  far  is  according  to  the 
approach  in  [REFIO].  We  found  that  it  is  not  convenient  to  display  the  media  data  in  the 
order  printed  out  for  the  formatted  data.  What  if  the  user  wants  to  see  only  the  picture 
of  the  last  tuple  displayed  as  the  final  result?  So,  we  moditied  the  design  for  the  display 
process  of  media  part.  With  this  modification,  the  user  of  the  MDBMS  prototype  can 
select  which  media  data  to  display.  More  detailed  information  about  the  modification  can 
be  found  in  the  next  chapter  of  this  thesis. 

Because  the  design  for  the  process  of  decomposition,  when  a  query  includes 
media  data,  introduced  in  this  subsection  is  the  same  for  complex  queries  and  se* 
operations  which  will  be  introduced  in  the  rest  of  this  chapter,  we  will  not  repeat  the 
decomposition  process  due  to  the  inclusion  of  media  data  in  a  query  for  the  sake  of 
clarity. 

2.  Nested  Queries 

Some  queries  require  that  existing  values  in  the  database  be  fetched  and  used 
in  a  comparison  condition.  Such  queries  can  be  conveniently  formulated  using  nested 
queries  which  are  complete  SELECT-  FROM- WHERE  queries  within  the  WHERE  clause 
of  another  query  which  is  called  the  outer  query.  In  this  chapter  we  present  the  design  of 
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nested  queries  including  the  comparison  operators  IN,  NOT  IN,  EXISTS,  and  NOT 
EXISTS  giving  examples  for  each  to  clarify  the  approach. 

a.  IN: 

The  comparison  operator  IN  compares  a  value,  say  v,  with  a  set  (or 
multiset)  of  values  V  and  evaluates  to  TRUE  if  v  is  one  of  the  elements  in  V.  Let  us  now 
give  an  example  to  show  how  a  nested  query  with  the  comparison  operator  IN  looks  like. 

Query:  Retrieve  the  names,  pictures  and  voice  recordings  of  all  executive 
officers  stationed  at  ships  whose  weapon’s  picture  shows  "high  speed  guided  torpedo". 

An  extended  SQL  statement  for  the  above  query: 

SELECT  o_name,  picture,  voice 

FROM  officer 

WHERE  ojd  IN 
(SELECT  exojd 
FROM  ship 
WHERE  s_no  IN 
(SELECT  s_no 
FROM  ship_weapon,  weapon 
WHERE  ship_weapon.w_name=weapon.w_name  and 
weapon.picture(CONTAINS,  "high  speed  guided 
torpedo"))); 

This  query  is  evaluated  as  follows: 

Qeate  table  T1  as: 
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SELECT  s_no 


FROM  ship_weapon,  weapon 

WHERE  ship_weapon.w_naine=wcapon.w_name  and 

wcapon,picture(CONTAINS,  ’’high  speed  guided  torpedo"))); 

Create  table  T2  as: 

SELECT  exo_id 
FROM  ship,  T1 
WHERE  ship.s_no=Tl.s_no 

Create  table  RESULT  as: 

SELECT  o_name,  picture,  voice 

FROM  officer,  T2 

WHERE  officer.o_id=T2.cxo_id 

Note  that  we  have  neither  shown  the  creation  of  temporary  media  tables 
nor  the  display  of  the  Enal  result  as  we  did  in  the  previous  section  for  simple  queries.  The 
idea  is  to  emphasize  the  design  of  a  nested  query  with  the  comparison  operator  IN.  The 
same  process  will  be  followed  for  the  rest  of  this  chapter. 

b.  NOT  IN: 

The  comparison  operator  NOT  IN  compares  a  value  v  with  a  set  (or 
multiset)  of  values  V  and  evaluates  to  TRUE  if  v  is  not  one  of  the  elements  in  V.  An 
example  of  a  nested  query  with  the  comparison  operator  NOT  IN  is  given  below: 

Query:  Retrieve  the  names,  displacements,  and  pictures  of  all  ships  which 
do  not  have  weapons  whose  picture  shows  "long  range  underwater-to-surface  missile". 
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An  extended  SQL  statement  for  the  above  query  can  be  written  as 

follows: 

SELECT  s.name,  displacement,  picture 
FROM  ship 
WHERE  s_no  NOT  IN 
(SELECT  s_no 
FROM  ship_weapon,  weapon 

WHERE  ship_weapon.w_name=weapon.w_name  and 

we^xMi.picture(CONTAINS,  "Icmg  range  underwater-to-surface 
missile"). 

The  above  query  is  evaluated  as  follows: 

Create  table  T1  as: 

SELECT  s_no 

FROM  ship_weapon,  weapon 

WHERE  ship_weapon.w_name=weapon.w_name  and 

wetqx)n.picturc(CONTAINS,  "long  range  underwater-to-surface 
missile"). 

Create  table  RESULT  as: 

SELECT  s.name,  displacement,  picture 
FROM  ship,  T1 

WHERE  (ship.s_no=Tl.s_no)=FALSE 
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In  the  creation  of  the  RESULT  table  the  statement  WHERE 
(ship.s_no=Tl.s_no)=FALSE  is  used  to  show  that  the  tuples  of  the  table  SHIP  are 
retrieved  into  the  table  RESULT  if  the  join  condidon  evaluates  to  FALSE.  In  other  words 
tuples  of  the  table  SHIP  are  retrieved  if  they  are  not  a  member  of  the  values  in  table  Tl. 
c.  EXISTS: 

The  comparison  operator  EXISTS  is  usually  used  in  conjunction  with  a 
correlated  nested  query.  A  correlated  nested  query  is  a  nested  query  with  a  join  condition 
related  to  the  outer  query.  Nested  queries  with  the  comparison  operator  EXISTS  work  as 
follows: 

For  each  tuple  of  the  outer  query,  the  nested  query  is  evaluated;  if  at  least 
one  mple  exists  in  the  result  of  the  nested  query  then  that  tuple  of  the  outer  query  is 
retrieved. 

Query:  Retrieve  the  names,  ranks  and  pictures  of  the  captains  who 
commanded  the  ships  whose  pictures  show  "a  cruiser  firing  at  the  enemy  at  the  Gulf 
War". 

SQL  statanmt  for  the  above  query: 

SELECT  o_name,  rank,  picture 

FROM  officer 

WHERE  EXISTS 
(SELECT  * 

FROM  ship 

WHERE  ship.picture(CONTAINS,  "a  cruiser  firing  at  the 
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enemy  at  the  Gulf  War")); 


The  above  query  is  evaluated  as  follows: 

Create  table  T1  as  follows: 

SELECT* 

FROM  ship 

WHERE  ship.picture(CONTAINS,  "a  cruiser  firing  at  the 
enemy  at  the  Gulf  War")); 

Create  table  RESULT  as  follows: 

SELECT  o_name,  rank,  picture 

FROM  officer,  T1 

WHERE  officer.o_id=Tl.exo_id 

d.  NOT  EXISTS: 

The  comparison  operator  NOT  EXISTS  is  also  used  in  conjunction  with 
a  correlated  nested  query.  NOT  EXISTS  works  as  follows: 

For  each  tuple  of  the  outer  query,  the  nested  query  is  evaluated;  if  the 
tuple  does  not  exist  in  the  result  of  the  nested  query  then  that  tuple  of  the  outer  query  is 
retrieved. 

Query:  Retrieve  the  names,  ranks  and  pictures  of  the  executive  officers 
who  are  not  stationed  at  destroyers. 

SQL  statement: 

SELECT  o.name,  rank,  picture 
FROM  officer 
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WHERE  NOT  EXISTS 


(SELECT  * 

FROM  ship 

WHERE  type="destroyer"); 

The  query  is  evaluated  as  follows; 

Create  table  T1  as: 

SELECT* 

FROM  ship 

WHERE  type="destroyer" 

Create  table  RESULT  as: 

SELECT  o.name,  rank,  picture 

FROM  officer,  T1 

WHERE  (officer.o_id=Tl.exo_id)=FALSE; 

3.  Set  Operatkms 

Set  operations  in  SQL  are  INTERSECTION,  UNION,  an^  MINUS  (set 
difference).  As  we  mentioned  at  the  beginning  of  this  chapter,  our  INGRES  version  does 
not  support  any  of  these  operations.  Since  set  operations  are  of  great  importance  to  us  for 
implementing  complex  queries,  we  extended  the  capabilities  of  the  SQL  by  implementing 
the  set  operations  in  C.  Below  we  present  the  design  of  set  operations. 
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a.  UNION: 


The  union  of  two  tables  is  a  table  containing  all  rows  that  are  either  in 
the  first,  or  in  the  second  table  or  in  both  of  them.  There  is  an  obvious  restriction  on  this 
operation.  It  does  not  make  sense,  for  example,  to  talk  about  the  union  of  the  SHIP  and 
the  OFFICER  table.  What  would  rows  in  this  union  look  like?  The  two  tables  must  have 
the  same  structure,  i.e.,  they  must  be  unitm-OMiqjatible.  Two  tables  are  union-compatible 
if  they  have  the  same  number  of  columns  and  if  their  corresponding  columns  have 
identical  data  types  and  lengths.  Note  that  the  definition  does  not  state  that  the  column 
headings  (attribute  names)  of  the  two  tables  must  be  identical  but  rather  that  the  columns 
must  be  of  the  same  type;  thus  if  one  is  integer,  the  other  one  must  also  be  an  integer. 

Our  design  UNION  is  to  retrieve  all  the  tuples  of  the  second  table  and 
insert  them  into  the  Erst  table.  This  is  considered  to  be  the  easiest  way  to  implement  the 
set  operation  UNION.  Let  us  give  an  example  to  make  our  design  clearer. 

Quay:  Retrieve  the  names,  ranks,  pictures  and  voice  recordings  of  all 
the  officers  who  worked  as  an  executive  officer  or  as  a  captain  on  the  ships  whose 
pictures  show  "nuclear  submarine  with  many  kinds  of  guided  torpedoes". 

Extended  SQL  statement  for  diis  query: 

(SELECTo.name,  rank,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=ship.exo_id  and  ship.picture(CONTAINS, 
"nuclear  submarine  with  many  kinds  of  guided 
torpedoes")) 
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UNION 


(SELECTo_name,  rank,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=ship.capt_id  and  ship.picture(CONTAINS, 
"nuclear  submarine  with  many  kinds  of  guided 
torpedoes")); 

The  above  query  is  evaluated  as  follows: 

Create  table  T1  as: 

SELECT  o_name,  rank,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=ship.exo_id  and  ship.picture(CONTAINS, 
"nuclear  submarine  with  many  kinds  of  guided 
torpedoes"); 

Create  table  T2  as: 

SELECT  o.name,  rank,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=ship.capt_id  and  ship,picture(CONTAINS, 
"nuclear  submarine  with  many  kinds  of  guided 
torpedoes"); 

EXEC  SOL  CREATE  CURSOR  cursor  outputl  AS: 

SELECT* 

FROMTl 
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EXEC  SOL  CREATE  CURSOR  cursor  outDut2  AS: 

SELECT* 

FROMT2 

INSERT  INTO  table  T1 

VALUES  (EXEC  SQL  FETCH  CURSOR  cursor_output2); 
b.  INTERSECTION: 

The  intersection  of  two  tables  is  a  table  containing  all  rows  that  are  in 
both  tables.  We  should  keep  in  mind  that  the  issue  of  union.compatibility  is  also  valid 
for  intersection. 

Our  design  for  the  intersection  of  two  tables  dictates  that  the  two  tables 
should  be  joined  with  all  the  column  headings  (attributes).  This  approach  gives  the  same 
result  as  the  approach  in  which  each  tuple  of  the  first  table  is  checked  against  all  the 
tuples  of  the  second  table.  Let  us  illustrate  our  approach  with  an  example. 

Qoeiy:  Retrieve  the  names,  power  and  pictures  of  all  weapons  whose 
pictures  show  "high  speed  close  range  defense  weapon"  along  with  the  ones  located  on 
board  the  ^p  "Elliott". 

Extended  S(^  statement  for  the  above  query  can  be  written  as  follows: 

(SEL£CTw_name,  power,  picture 

FROM  weapon 

WHERE  weiqKXi.picture(CX)NTAINS,  "high  speed  close  range 
defense  weapon")) 

INTERSECT 
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(SELECTw_name,  power,  picture 
FROM  ship,  ship.weapon,  we^n 
WHERE  ship.s_no=ship_weapon.s_no  and 

ship_weapon,w_naine=weapon.w_name); 

The  above  query  is  evaluated  as  follows: 

Create  table  T1  as: 

SELECT  w.name,  power,  picture 
FROM  weapon 

WHERE  weapon.picture(CONTAINS,  "high  speed  close  range 
defense  weapon"); 

Create  table  T2  as: 

SELECT  w.natne,  power,  picture 
FROM  ship,  ship.weapon,  weapon 
WHERE  ship.s_no=ship_weapon.s_no  and 
ship_weapon.w_name=weapon,w_nanie; 

Create  table  RESULT  as: 

SELECT  w.name,  power,  picture 


FROM  Tl,  T2 


WHERE  Tl.w_namc=T2.w_name  and  Tl.power=T2.power  and 
Tl  .picture=T2.picture 
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c.  MINUS: 


The  difference  of  two  tables  T1  and  T2  (referred  to  as  T1  MINUS  T2) 
is  the  set  of  all  rows  that  are  in  T1  but  not  in  T2.  Our  design  for  the  difference  of  two 
tables  indicates  that  all  the  rows  from  the  first  table  should  be  retrieved  if  the  result  of 
joining  the  two  tables  with  all  their  attributes  evaluates  to  FALSE. 

Let  us  clarify  this  approach  with  an  example: 

Query:  Retrieve  the  names,  ranks,  and  pictures  of  all  the  officers  whose 
picture  show  "tall  person"  but  not  the  ones  whose  pictures  show  "blond  hair". 

Extended  SQL  stateinmt  for  diis  query  can  be  written  as  follows: 
(SELECT  o.name,  rank,  picture 
FROM  officer 

WHERE  ofFicer.picture(CONTAINS,  "tall  person")) 

MINUS 

(SELECT  o_name,  rank,  picture 
FROM  officer 

WHERE  officer.pictute(CONTAINS,  "blond  hair")) 

This  query  can  be  evaluated  as  follows: 

Oeate  T1  as: 

SELECT  o_name,  rank,  picture 
FROM  officer 

WHERE  officer.picture(CONTAINS,  "tall  person"); 


SELECT  o_name,  rank,  picture 

FROM  officer 

WHERE  officcr.picturc(CONTAINS,  "blond  hair"); 

Create  RESULT  as: 

SELECT  o.name,  rank,  picture 

FROM  Tl.  T2 

WHERE  (Tl.o_name=T2.o_name  and  Tl.rank=T2.rank  and 
Tl  .picture=T2.picturc)=FALSE 

The  clause  'WHERE  (Tl.o_naine=T2.o_name  and  Tl  .rank  =  T2.rank  and 
Tl.picture=T2.picture)=FALSE"  means  the  tuples  from  Tl  are  retrieved  if  the  join 
conditions  evaluate  to  FALSE,  in  other  words  if  those  tuples  are  not  in  T2. 

4.  Aggregate  Fhnctioiis 

Since  aggregation  is  required  in  many  database  applications,  we  decided  to 
implement  the  aggregate  functions  in  addition  to  the  complex  queries  mentioned  in  this 
chapter. 

Aggregate  functions  like  COUNT,  SUM,  MAX,  MIN  and  AVG  are  buUt-in 
functions  in  INGRES  SQL.  In  this  subsection  we  present  the  design  of  the  aggregate 
functions  for  our  MDBMS  prototype  system. 

a.  COUNT 

The  built-in  function  COUNT  returns  the  number  of  tuples  found  for  a 
specified  condition.  Let  us  give  an  example  to  clarify  how  COUNT  works; 
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Queiy:  How  many  executive  officers  are  there  in  the  fleet,  whose  pictures 
show  "tall  person  with  black  hair"? 

The  extended  SQL  staiemait  for  the  above  quay: 

SELECT  COUNT(o_naine) 

FROM  officer 

WHERE  officer.picture  (CONTAINS,  "tall  person  with  black  hair"); 
The  above  query  is  evaluated  as  follows; 

Create  table  RESULT  as: 

SELECT  COUNT(o_name) 

FROM  officer 

WHERE  officer.picture  (CONTAINS,  "tall  person  with  black  hair"); 

Let  us  assume  that  there  are  3  tuples  in  the  table  Tl,  that  match  the 
query.  Then  the  aggregate  functions  COUNT  returns  3  in  the  table  RESULT. 


b.  SUM,  MAX.  MIN,  AVG 

The  aggregate  functions  SUM,  MAX,  MIN  and  AVG  are  applied  to  a  set 
or  multiset  of  numeric  values  and  return  the  sum,  maximum,  minimum  and  average  of 
those  values.  Let  us  clarify  this  with  an  example: 

Quay:  What  is  the  sum,  maximum,  minimum  and  average  salary  of  the 

officers? 


fcdlows: 


An  extoided  SQL  statement  for  the  above  query  can  be  written  as 


SELECT  SUM(salary),  MAX(salary),  MIN(salaiy),  AVG(salary) 
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FROM  officer. 


The  above  query  is  evaluated  as  follows: 

Create  table  RESULT  as: 

SELECT  SUM(salary),  MAX(salaiy).  MIN(salary),  AVG(salary) 

FROM  officer, 

S.  Multiple  Selectioas 

As  we  mentioned  in  Chapter  II  Section  E  of  this  thesis,  multiple  selections  can 
be  represented  in  disjunctive  normal  form  by  using  the  Boolean  operator  and  inside  each 
group,  and  Boolean  operator  or  between  groups.  With  our  approach  for  the  design  of 
multiple  selections  it  is  possible  to  have  arbitrarily  many  conditions  inside  each  group  and 
arbitrarily  many  groups  in  a  query.  The  design  is  as  follows: 

The  result  of  each  condition  inside  a  group  is  retrieved  into  a  temporary  table. 
For  each  group,  these  tenqxnary  tables  are  intersected  using  the  set  operator 
INTERSECT;  the  result  of  the  intersection  is  put  into  another  temporary  table.  Later  the 
temporary  tables  including  the  results  of  each  group  are  unioned  using  the  set  operator 
UNION  and  the  result  of  this  operation  is  put  into  the  table  RESULT,  which  is  the  final 
result  of  the  whole  query. 

Let  us  elucidate  this  with  an  example  which  includes  multiple  selections 
without  any  nesting  condition.  An  example  with  nesting  condition  will  be  presented  in  the 
next  subsection. 

Query:  Retrieve  the  names,  types  and  pictures  of  all  ships  built  after  1975  and 
whose  pictures  show  "nuclear  submarine  with  many  missiles"  or  those  whose 
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displacement  is  less  than  100,000  and  whose  pictures  show  "destroyer  with  many  kinds 
of  guided  missiles  on  board". 

SQL  statemrat  for  die  above  quay  is  as  follows: 

SELECT  s_name,  type,  picture 
FROM  ship 

WHERE  (yr_built  >  1975  and  ship.picture(CONTAINS,  "nuclear 
submarine  with  many  missiles"))  or  (displacement  *  100,000 
and  ship.picture(GONTAINS,  "destroyer  with  many  kinds  of 
guided  missiles  on  board")); 

The  queiy  above  can  be  evaluated  as  foUows; 

Create  table  T1  as: 

SELECT  s_name,  type,  picture 
FROM  ship 

WHERE  yr_built  >  1975 
Create  table  T2  as: 

SELECT  s_name,  type,  picture 
FROM  ship 

WHERE  ship.picture(OONTAINS,  "nuclear  submarine  with  many 
missiles"); 

Create  table  R1  as: 

T1  INTERSECT  T2; 

Create  table  T3  as: 
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SELECT  s_name,  type,  picture 

FROM  ship 

WHERE  displacement  <  100,000 

Create  table  T4  as: 

SELECT  s_name,  type,  picture 

FROM  ship 

WHERE  ship.picture(CONTAINS,  "destroyer  with  many  kinds 
of  guided  missiles  on  board”)). 

Create  table  R2  as: 

T3  INTERSECT  T4; 

Create  table  RESULT  as: 

R1  UNION  R2; 

6.  Conqilex  Quecies 

So  far  we  presented  the  design  of  single  queries,  nested  queries,  set  operations 
and  multiple  selections.  Now  we  are  ready  to  give  an  example  of  a  complex  query 
including  most  of  the  types  of  these  queries. 

Query:  List  the  names  and  displacements  of  all  ships  whose  weapons’  pictures 
show  "anti_aircraft  missile"  and  whose  pictures  show  "modem  air  defense  cruiser,  high 
speed  gas  turbine  powered  ship  with  many  engines"  or  whose  captain’s  rank  is 
commander  and  whose  executive  officers’  salary  is  greater  than  $35,000. 

SQL  statement  for  die  above  query  is: 

SELECT  s.name,  displacement 


57 


FROM  ship 
WHERE  (s_no  IN 
(SELECT  s_no 
FROM  ship_weapon,  weapon 
WHERE  ship_wcapon.w_name=weapon.w_name 

and  weapon.picture(CONTAINS,  "and-aircraft  missile")) 
and  ship.picture(OONTAINS,  "modem  air  defense  cruiser"))  or 
((EXISTS  (SELECT  ojd 

FROM  officer 
WHERE  oJd="capt") 
and  (exo_id  IN  (SELECT  o_id 
FROM  officer 
WHERE  salary  >  35,000)))) 

The  above  query  can  be  evaluated  as  follows: 


SELECT  s_no 

FROM  ship.weapon,  weapon 

WHERE  ship_weapon.w_name=weapon.w_name  and  weapon.picture 
(CONTAINS,  "anti-aircraft  missile"); 


SELECT  oJd 


FROM  officer 
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WHERE  o_id="capt" 


Create  table  T3  as: 

SELECT  ojd 
FROM  officer 
WHERE  salary  >  35,000 
Create  table  T4  as: 

SELECT  s_name,  displacement 
FROM  ship 
WHERE  s_no  IN  T1 
Create  table  T5  as: 

SELECT  s.name,  displacement 
FROM  ship 

WHERE  ship.picture(CONTAINS,  "modem  air  defense  cruiser"); 
Create  table  R1  as: 

T4  INTERSECT  T5 
Create  table  T6  as: 

SELECT  s_name,  displacement 
FROM  ship 
WHERE  EXISTS  T2 
Create  table  T7  as: 

SELECT  s_name,  displacement 
FROM  ship 
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WHERE  cxojd  IN  T3 


queries. 


Create  table  R2  as: 

T6  INTERSECT  T7 
Create  table  RESULT  as: 

R1  UNION  R2 

Refer  to  Appendix  A  of  this  thesis  for  a  comprehensive  example  of  complex 
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V.  IMPLEMENTATION  OF  COMPLEX  QUERIES 

In  this  chapter,  we  will  first  present  the  user  interface  for  all  types  of  queries 
supported  by  the  MDBMS  prototype,  then  give  the  query  processing  for  each  type  of 
query  in  detail  and,  finally,  we  will  mention  the  necessary  procedures  for  linking  and 
running  die  system. 

A.  USER  INTERFACE 

In  section  IV.B.,  we  discussed  the  design  of  complex  queries  using  the  SQL 
language.  A  decision  was  made  to  use  an  interactive  interface  instead  of  using  an 
extended  version  of  SQL  as  the  user  interface.  The  idea  behind  this  is  to  let  the  casual 
users  use  the  system  more  easily.  In  this  section,  we  present  the  interface  design  for  the 
retrieval  operations  inqilemented  so  far  by  giving  examples,  rather  than  describing  the 
user  interface  in  an  abstract  manner. 

1.  Simide  Queries 

According  to  our  classification,  a  simple  query  is  a  query  involving  one  or 
more  conditions  in  the  WHERE  clause  of  an  SQL  statement  with  the  Boolean  operator 
and  between  conditions.  Furdier,  none  of  these  conditions  include  a  nesting  condition.  Let 
us  clarify  what  we  have  just  said  with  an  example: 

Query:  Retrieve  the  name,  rank,  salary,  picture  and  voice  recording  of  the 
commanding  officers  who  reported  for  duty  before  1989  and  who  are  stationed  at  ships 
whose  pictures  show  "gas  turbine  powered  ship". 
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SQL  statement  for  foe  above  quay: 

SELECT  o.name,  rank,  salary,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=sh^.exo_id  and  iep_yr<1989  and 

shq).picture(CONTAINS,  "gas  turbine  powered  ship"); 

When  the  user  wants  to  specify  such  a  query  in  the  MDBMS,  he  will  first 
select  the  option  ’retrieve’  fiom  the  main  menu.  The  system  then  responds  with 
appropriate  instructions  step  by  step.  Each  time  when  foe  user’s  response  is  entered,  the 
system  will  return  to  ask  for  the  next  piece  of  information.  The  following  operations  are 
thus  requited  to  cotTq)lete  the  sinqile  query  above  (the  scripts  in  bold  type  represent  the 
user’s  responses). 


Muldmedia  Database  Management  System 


1.  Create  Triple 

2.  Insert  Tufrie 

3.  Retrieve 

4.  Delete 
3.  Modify 

6.  PritM  oat  conent  data  inftmnatkxKtest  purpose) 

0.  Quit 

Select  yoor  choice  ::  3 
Yoor  Selection  is  RETRIEVALI 

Enter  taUe  name  to  bold  the  temporary  resolt  of  the  query;  temp 
Select  the  tablets)  separtfe  by  corruna  <,>  :  (<7>  for  HELP!) 
SELECT  TABLEtS):  aUp.  officer 

Please  enter  your  join  condidoo 
(<7>  for  heipl) :  8iiip.captJdaoffioer.oJd 

Table  ^p 

Select  the  atttibate(s)  separated  by  comma  <,>  :  (<?>  for  HELP!) 
(Hit  <ESC>for  no  attribute) 

SELECT  ATTRIBUTE(S)  ;  <ESC> 


Table  officer 

Select  the  altiibute(s)  separated  by  comma  :  (<?>  for  HELPI) 
(Hit  <ESC>  for  no  attri^te) 

SELECT  ATTR1BUTE(S)  :  o_iiaine,  rank,  salary,  photo,  voice 

Any  condition  7  (y^):  y 
Oroop  condilion  ?  (y/h):  y 

Retrieval  Operations  Menu 


0.  Simple  Coixiition 

1.  taUel  where  EXISTS  table2 

2.  taUel  where  NOT  EXISTS  table2 

3.  taUel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  0 

Enter  taUe  name:  officer 
Enter  attribute:  rep_yr 
Enter  the  condition:  <1989 
Where  rep_yr  <1989 


There  are  4  records  that  match  the  query 

record  id  1  o_name  Jeff  Kulp  rardr:Capt  salary:10000  photo  id  is  1  voice  id  is  1 

record  id  2  o.name Dan  Hendricks  rank:Cdr  salary:8S()0  photo  id  is  2  voice  2 

record  id  3  o_name:Yavuz  Atila  rank:Cklr  8alary:73(X)  photo  id  is  3  voice  3 

record  id  4  o.name  John  Daley  tank:Cdr  salaty;9000  photo  id  is  4  voice  4 


Do  you  want  to  see  any  image  data  ?  (y/h):  n 
End  group  7  :n 


Retrieval  Opetalioiis  Meitu 

0.  Simple  Condthon 

1.  taUel  where  EXISTS  table2 

2.  uUel  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  taUel  NOT  IN  Uble2 


Select  your  choke  ::  0 


Your  Selection  is  Simple  Condition 
Enter  taUe  name:  «hip 
Enter  attribute:  picture 

Please  ettter  your  query  desaiption 

*  noun  phrases  separate  by  commas  and  end  with  an  exclamation  mark 

*  sentence  end  with  a  period. 

(end  whole  description  with  an  empty  line): 
gas  turbine  powered  siiipl 
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Searching . 

Below  is  the  result  of  the  first  2  conditions  in  group  1  : 

There  are  2  records  that  match  the  query 

record  id  1  o_oame:Yavuz  Atila  rank:Cdr  salaty:7S00  photo  id  is  3  voice  3 

record  id  2  o_nanieJohn  Daley  tank:Cdr  salaiy:9U00  photo  id  is  4  voice  4 

Do  you  want  to  see  any  image  data  ?  (y/D):o 
End  group  ?:y 

Below  is  the  result  of  gro<q>  1  : 

record  kl  1  o_naine:Yavuz  Adla  rank:Cdr  salary:7500  photo  id  is  3  voice  3 

record  id  2  o_name  Jolm  Daley  rank:Glr  salary:9(X)0  photo  id  is  4  voice  4 

Do  you  want  to  see  any  image  data  7  (y/n):n 
End  corxlition  ?:y 

Below  is  the  final  result  of  all  groups  : 

record  id  1  o_oame;Yavuz  Atila  rank:Glr  salary:7S00  photo  id  is  3  voice  3 

record  id  2  o_name  John  Daley  tank:Cdr  salaty:9000  photo  id  is  4  voice  4 

Do  you  want  to  see  any  image  data  7  (y^):y 

Which  tuple’s  image  do  you  want  to  see7  (enter  record  id)  ;  1 

Record  no  1  filenanre  Vlmp_mniAiAdtgQ/worfc/hidbms/MDBMS/91 163.173948  Show  image  . 

The  following  photo  has  been  found: 

Number  1 
Descriptioa: 

»black  hair.big  nose,thin  body,  tall  person  with  glasses! 

« 

Do  yon  want  to  see  the  photo7:  y 

•••  The  photo  is  di^layed  on  the  screen  •** 

Do  you  warn  to  see  moe  image  data  7  (Y/N):  n 

Which  tuple's  sound  do  you  want  to  bear7  (etter  record  id):  2 
Sound  management 
Record  no  2 

Play  the  sound  7  (y/n):  y 

***  Sound  is  play-backed 

Do  you  want  to  bear  more  sound  data  7  (Y/N):  n 
If  you  want  to  intersect  /  unioo  /  minus  any  two  tables: 

1.  INTERSECT  two  tables 

2.  UNION  two  tables 

3.  MINUS 

0.  (^t 
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Select  your  choice  ::  0 

More  selections  at  this  level  ?  (y/n):  n 
More  levels  7  (yAi):  n 

Note  that  after  the  tuples  that  match  the  query  are  retrieved,  the  user  is  asked 
which  tuple’s  picture  he  wants  to  see  and  which  tuple’s  voice  he  wants  to  hear.  This  is 
very  convenient.  In  [REFIO],  the  media  data  was  displayed  tuple  by  tuple  without  asking 
the  user  for  his  choice  which  was  inconvenient  for  the  user  of  the  MDBMS  prototype. 

Another  difference  between  our  interface  design  and  [REFIO]  is  the  addition 
of  the  ’Retrieval  Operations  Menu’.  This  menu  is  required  to  ask  the  user  if  his  condition 
is  a  simple  one  or  a  nesting  condition. 

2.  Queries  Using  Nesdng  Condidon 

As  we  mentioned  in  IV.2,  a  nested  query  is  a  complete  SELECT-FROM- 
WHERE  query  within  the  WHERE  clause  of  a  another  query  which  is  called  the  outer 
query.  In  this  subsection,  we  present  the  inqjlementation  of  nested  queries  using  the 
nesting  operators  IN,  NOT  IN,  EXISTS  and  NOT  EXISTS. 

a.  IN 

When  the  user  wants  to  specify  a  nested  query  with  the  nesting  operator 
IN,  he  should  enter  the  inner  query,  put  the  result  in  a  temporary  table  and  then  he  should 
enter  the  outer  query.  Let  us  give  an  example  to  clarify  this: 

Query:  Retrieve  the  names,  types  and  pictures  of  the  ships  whose 
wejqmn’s  picture  shows  "high  speed  guided  torpedo". 

An  extended  SQL  statement  for  the  above  query: 
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SELECT  s.name,  type,  picture 
FROM  ship,  ship_weapon 
WHERE  ship.s_no=ship_weapon.s_no 


and  w_name  IN 
(SELECT  w_namc 
FROM  wei^n 

WHERE  weq)on.pictuie  (CONTAINS,  "high  speed  guided 

torpedo")); 


In  order  to  avoid  repetition,  we  will  not  give  all  the  steps  the  user  has  to 
follow  to  complete  the  above  query,  instead  we  will  explain  them. 

The  above  query  consists  of  die  inner  query  (the  SELECT-FROM- 
WHERE  query  in  the  parenthesis)  and  the  outer  query.  The  user  will  first  enter  the  inner 
query  in  the  same  way  as  the  exanqile  of  simple  queries  given  in  section  V.A.I.  So  far, 
we  assume  that  we  have  the  result  of  the  inner  query  in  the  temporary  table  "tenqil".  We 
can,  now,  present  the  test  of  die  steps  that  the  user  has  to  follow  to  get  the  final  result 

of  the  whole  query: 

More  selectioiis  at  this  level?  (y/a):  n 
More  levels?  (y^):  y 

Euler  table  name  to  hold  the  tempoiaiy  lesoh  of  the  query:  lesnit 

Select  the  table(s)  separate  by  comma  <>>  :  (<?>  for  HELP!) 

SELECT  TABLE<S):  ship,  s^.weapoo 

Please  enter  your  join  condition 

(<?>  for  helpl) :  ship.s_no>uhip_weapaa.s_no 

Table  sUp 

Select  the  attribute(s)  separated  by  comma  <,>  :  (<?>  for  HELPI) 

SELECT  ATnUBUTE(S) 
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(Hit  <ESC>  for  no  attribute) 

:  sjaame,  type,  pfetme 

Table  sh4>_weapon 

Select  the  attribute(s)  separated  by  comma  <p> :  (<7>  for  HELPI) 
SELECT  ATTRIBUTE(S) 

(Hit  <ESC>  for  no  attribute) 

:<ESC> 

Any  condition  7  (y/a):  y 
Group  conditioa  7  (y/a):  n 

Retrieval  Operatioos  Menu 


0.  Simple  Conditioa 

1.  taUel  where  EXISTS  table! 

2.  taUel  where  NOT  EXISTS  table! 

3.  taUel  IN  table! 

4.  taUel  NOT  IN  table! 


Select  your  choice  ::  3 
Your  Selectioa  is  tabkl  IN  taUe! 

Enter  the  temp  table  name  related  to  IN  :  tempi 

Enter  attribute  for  the  qrpropriate  table  for  condition  of  IN  :  w_nanie 

Table  •*  tempi  ** 

SELECT  ATTRIBUTE  (only  one  attribatei):  wjume 
There  is  1  record  that  match  the  query 

record  id  1  s_tuane  :  Midugan  yr_built :  198!  picture  id  is  3 

Do  you  want  to  see  any  image  data  7  (yAi):  n 
Do  you  want  to  see  more  image  dda  7  (Y/N):  n 

If  you  want  to  iittersect  /  union  Aninus  any  two  tables: 


1.  INTERSECT  two  laUes 
!.  UNION  two  tables 
3.  MINUS 
0.  Quit 


Select  your  choice  ::  0 
More  selections  at  this  level  7  (y/n):  n 
More  levels  7  (y/ta);  n 
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b.  NOTIN 


Let  us  present  the  user  interface  of  a  nested  query  including  the 
comparison  operator  NOT  IN  by  giving  an  example  query  j5rst. 

Query:  Retrieve  the  name,  rank,  pictures  and  voice  recording  of  the 
commanding  officers  who  are  not  stationed  at  sh^  whose  picture  shows  "gas  turbine 
powered  sh^". 

An  extended  SQL  statement  for  die  above  query  using  die  conqiarison 
operator  NOT  IN  can  be  written  as  frdlows: 

SELECT  o_name,  rank,  {^oto,  voice 
FROM  officer 
WHERE  ojd  NOT  IN 
(SELECT  ci^_id 
FROM  shq) 

WHERE  shqi.picture  (CONTAINS,  "gas  turbine  powered  shq>”); 
As  we  did  for  nested  queries  using  the  comparison  operator  IN,  we  will 
not  repeat  aU  the  steps  to  be  followed  by  the  user  for  ^lecifying  the  nested  query  above 
either,  but  just  point  out  the  differences  in  the  user  interface. 

We  suppose  that  we  have  the  result  of  die  inner  query  in  the  temporary 
table  "tenqil".  The  rest  of  the  user  interface  to  get  the  result  of  the  above  query  is  as 
follows: 

More  selectioiis  m  this  level  ?  (y/o):  n 
M<»e  levels  7  (y^):  y 

Eoier  table  name  to  told  the  temporary  result  of  the  query:  result 
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Select  the  tabie(s)  separate  by  comma  <,>  :  (<?>  for  HELPI) 
SELECT  TABLE(S):  officer 

Table  officer 

Select  tbe  attiibute(s)  separated  by  comma  :  (<?>  for  HELPI) 
SELECT  ATITUBUTECS) 

(Hit  <ESC>  for  no  attribute) 

:  o_pame,  raniL,  photo,  voice 

Any  condition  ?  (yAi):  y 
Group  condition  ?  (yAi):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  taUel  where  EXISTS  table2 

2.  taUel  where  NOT  EXISTS  table2 

3.  taUel  IN  table2 

4.  taUel  NOT  IN  table2 

Select  your  choice  ::  4 
Your  Selection  is  tabkl  NOT  IN  table2 

Enter  the  temp  table  name  related  to  NOT  IN  :  resUtl 
Enter  attribute  for  table  officer  for  condition  of  NOT  IN  :  o_id 

Table  •*  result!  •* 

SELECT  ATTRIBUTE  (only  one  attribute!) :  captjd 
There  are  3  records  that  match  the  query 

record  id  1  o.mune  ;  Dan  Hendricks  rank  :  Cdr  photo  id  is  2  voice  2 

record  id  2  o_name  :  Fred  Pong  rank  :  Lt  Cdr  photo  id  is  9  voice  9 

record  id  3  o.name  :  Huseyin  Aygun  tank  :  Lt  Cdr  photo  id  is  8  voice  8 

Do  you  want  to  see/faear  any  media  data  7  (yAi):  n 
More  selections  at  this  level  7  (yM):  n 
More  levels  7  (yAi);  n 


c.  EXISTS 

The  comparison  operator  EXISTS  is  usually  used  in  conjunction  with  a 
correlated  nested  query.  A  correlated  nested  query  is  a  nested  query  with  a  join  condition 
related  to  the  outer  query.  Considering  this  as  a  general  rule,  we  ask  the  user  to  enter  a 
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join  condition  between  the  inner  query  and  the  outer  query.  Nested  queries  with  the 
comparison  operator  EXISTS  work  as  follows: 

For  each  tuple  of  the  outer  query,  the  nested  query  is  evaluated;  if  at  least 
one  tuple  exists  in  the  result  of  the  nested  query  then  that  tuple  of  the  outer  query  is 
retrieved. 

Let  us  give  an  example  for  a  nested  query  with  the  nesting  operator 

EXISTS: 

Query:  Retrieve  the  name,  type  and  picture  of  the  ships  whose  weqron’s 
picture  shows  "long-range  missile  against  land  targets". 

The  extended  SQL  statement  the  above  query: 

SELECT  s_name,  type,  picture 
FROM  sh^,  ship_wcqx)n 
WHERE  shq).s_no=ship_weipon.S-no 
and  w_name  EXISTS 
(SELECT  w_ruBiie 
FROM  weqxMi 

WHERE  weipon.picture  (CONTAINS,  "long-range  missile  against 

land  targets")); 

The  user  interface  portion,  after  the  result  of  the  inner  query  is  put  in  the 
temporary  table  "table  1”,  is  as  follows: 

More  selectioos  al  this  level  ?  (y/n):  n 
More  levels  7  (yAi):  y 

Enter  uMe  name  to  hold  the  temporary  resuh  of  the  query:  result 
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Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLE(S):  sfa^,  s^_wei9)00 

nease  enter  your  join  condition 

(<?>  for  help!)  :  riup^_noB3faip_weapoas_no 

Table  ship 

Select  the  attribute(s)  separated  by  comma  <.>  :  (<?>  for  HELP!) 
SELECT  ATnUBUTE(S) 

(Hit  <ESC>  for  no  attribute) 

:  s_name,  type,  pictnre 

Table  sfaip_wesqK>n 

Select  the  attribute(s)  separated  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  ATTRIBUTEfS) 

(Hit  <ESC>  for  no  attribute) 

:  <ESO 

Any  condition  ?  (y/n):  y 
Group  condition  7  (y/n);  n 

Retrieval  Operations  Menu 

BBnsaBB^s^BasasaBBesaBaassaB 

0.  Simple  Condition 

1.  taUel  where  EXISTS  table2 

2.  taUel  where  NOT  EXISTS  table2 

3.  taUel  IN  table2 

4.  uUel  NOT  IN  table2 


Select  your  choice  ::  1 

Your  Selection  is  table!  where  EXISTS  taUe2 
Enter  tbe  temp  table  lunie  related  to  EXISTS  :  lesoltl 
nease  enter  your  join  condition 

between  tbe  appropriate  table  and  **  tempi  •*  :8faip_weapoiLw  n«mBa.w»a|inn.ig_nMn» 

There  are  2  records  that  match  the  query 

record  id  1  s.name  :  Kitty  Hawk  type  :  carrier  picture  id  is  1 

record  id  2  s.name  :  Missbsippi  type  :  cruiser  picture  id  is  2 

Do  you  want  to  see/hear  any  media  data  7  (y/n):  n 

d  NOT  EXISTS 

The  comparison  operator  NOT  EXISTS  is  also  used  in  conjunction  with 
a  correlated  nested  query.  NOT  EXISTS  works  as  follows: 
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For  each  tuple  of  the  outer  query,  the  nested  query  is  evaluated;  if  the 
tuple  does  not  exist  in  the  result  of  the  nested  query  then  that  tuple  of  the  outer  query  is 
retrieved. 

As  we  did  for  EXISTS,  we  again  ask  the  user  a  join  condition  between 
the  inner  query  and  the  outer  query. 

Query:  Retrieve  the  name  and  rank  of  executive  officers  who  did  not 
attend  Gulf  War  and  show  their  photogrqrhs. 

The  extended  SQL  statement  for  the  above  query: 

SELECT  o_name,  rank,  photo 
FROM  officer 
WHERE  NOT  EXISTS 
(SELECT  * 

FROM  shq>,  mission 
WHERE  shtp.n\_id=mission.m_id 

and  missionjn_name="Gulf  War"); 

Suppose  that  the  user  has  already  put  the  result  of  the  iruier  query  in  the 

temporary  table  "tempi".  The  test  of  the  steps  to  be  foUowed  are  given  below: 

More  selections  at  tins  level  7  (y/n):  n 
More  levels  7  (y/n);  y 

Enter  table  name  to  hold  the  temporary  result  of  the  query;  lesuh 

Select  the  table(s)  separate  by  comma  <,>  ;  (<7>  for  HELP!) 

SELECT  TABLE(S);  ofBoer 
Table  ofBcer 

Select  the  Mtribute(s)  separated  by  comma  <,>  ;  (<7>  for  HELP!) 

SELECT  ATTRIBUTEfS) 

(Hit  <ESC>  for  no  attribute) 
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:  ojume,  nok,  photo 


Any  condition  ?  (y/n):  y 
Group  condition  7  (y/n):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  taUel  IN  table2 

4.  ublel  NOT  IN  able2 


Select  your  choice  ::  2 

Your  Selection  is  tablel  'Miere  NOT  EXISTS  table2 
Enter  the  temp  table  name  related  to  NOT  EXISTS  :  tempi 
Please  enter  your  join  condition 

between  the  appropriate  table  and  **  tempi  **  :  o£Gkxr.o_ids8liip.exo_kl 
There  are  2  records  that  match  the  query 

record  id  1  o_name  :  Huseyin  Aygun  rank  :  Lt  photo  id  is  1 

record  id  2  o_name  :  Yavuz  Atila  rank  :  Lt  Cdr  photo  id  is  3 

Do  you  want  to  see  any  image  data  7  (y/n):  n 

Refer  to  Appendix  A  of  this  thesis  for  a  complex  queiy  including  nested 

queries  and  multiple  selections. 

3.  Set  Opendons 

In  this  subsection  we  present  the  user  interface  for  the  set  operations 
INTERSECTION,  UNION  and  MINUS.  As  we  did  for  nested  queries  we  will  only  point 
out  the  differences  in  the  user  interface,  instead  of  repeating  all  the  steps  to  be  followed 
by  the  user. 
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a.  UNION 


Queiy:  List  the  names,  ranks,  pictures  and  voice  recordings  of  ali  the 
officers  who  worked  as  an  executive  officer  or  as  a  captain  on  the  ships  whose  pictures 
show  "nuclear  submarine  with  many  kinds  of  guided  toipedoes". 

Extended  SQL  statement  for  this  query; 

(SELECTo_name,  rank,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=ship.exo_id  and  ship.pictureftTONTAINS, 
"nuclear  submarine  with  many  kinds  of  guided 
torpedoes")) 

UNION 

(SELECTo_name,  rank,  picture,  voice 

FROM  officer,  ship 

WHERE  officer.o_id=shq7.cqn_id  and  ship.pictuiefCONTAINS, 
"nuclear  submarine  with  many  kinds  of  guided 
torpedoes")); 

The  above  query  consists  of  two  subqueries  with  the  set  operator  UNION 
between  them.  The  user  who  wants  to  specify  such  a  query  will  treat  each  of  the  two 
subqueries  as  simple  queries,  put  their  results  in  temporary  tables  and  then  use  the  set 
operations  menu  to  get  the  fmal  result.  Now  let  us  assume  we  have  the  result  of  the  first 
subquery  in  "tempi"  and  the  result  of  the  second  subquery  in  "tenipZ”.  The  remaining 
steps  to  be  followed  are  as  follows: 
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If  you  want  to  intetsect  /  union  /minus  any  two  tables; 


1.  INTERSECT  two  tables 

2.  UNION  two  tables 

3.  MENUS 
0.  Quit 


Select  your  choice  ::  2 
Your  selection  is  UNION 

Enter  the  name  of  the  first  temp  table:  tempi 

Enter  the  name  of  the  second  temp  table;  temp2 

Enter  a  temp  table  name  to  hold  the  result  of  the  query:  result 

There  are  2  records  that  match  the  query 

record  id  1  o_name  :  Rosemary  Stewart  rank  :  Lt  photo  id  is  1  voice  id  is  5 

record  id  2  o_naine  :  Yavuz  Atila  rank  :  Lt  Cdr  photo  id  is  3  voice  id  is  7 

Do  you  want  to  see/hear  any  media  data  7  (y/n):  n 

b.  INTERSECTION 

Query:  Retrieve  the  names,  power  and  pictures  of  all  weapons  whose 
pictures  show  "high  speed  close  range  defeiue  weapon"  along  with  the  ones  located  on 
board  the  ship  "Elliott". 

Extended  SQL  statement  for  die  above  query  can  be  written  as  follows: 
(SELBCTw_name,  power,  picture 
FROM  wetqron 

WHERE  wejq)on.picture(CONTAINS,  "high  speed  close  range 
defense  wetqxrn")) 

INTERSECT 

(SELECTw_nainc,  power,  picture 
FROM  ship,  ship_wcapon,  weapon 
WHERE  ship.s_no=ship_wcapon.s_no  and 
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ship_wej^n.w_name=wcapon.w_namc); 

As  we  did  for  UNION,  let  us  assume  that  we  have  the  result  of  the  first 
subquery  in  "tempi"  and  the  result  of  the  second  subquery  in  "temp2".  The  remaining 

steps  to  be  followed  are  as  follows: 

If  you  want  to  intersect  /  union  /minus  any  two  tabks: 

1.  INTERSECT  two  taUes 

2.  UNION  two  tables 

3.  MINUS 
0.  Quit 

Select  your  choice  ::  I 
Your  selection  is  INTERSECT 
Emer  the  name  of  the  first  temp  table:  ttmpl 
Enter  the  name  of  the  second  temp  table:  temp2 
Enter  a  temp  table  name  to  hold  die  result  of  the  query:  result 

There  is  1  record  that  matches  the  query 

record  id  1  w_name  :  Trident  power  :  100  photo  id  is  1 
Do  you  want  to  see  any  image  data  7  (y/a):  n 

c.  MINUS 

Query:  Retrieve  the  names,  ranks,  and  pictures  of  all  the  officers  whose 
picture  show  "tall  person"  but  not  the  ones  whose  pictures  show  "blond  hair". 

Extended  SQL  atatement  for  this  query  can  be  written  as  follows: 
(SELECT  o_name,  rank,  picture 
FROM  officer 

WHERE  officer .picture(CONTAINS,  "tall  person")) 

MINUS 

(SELECT  o_name,  rank,  picture 
FROM  officer 
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WHERE  officer .picturc(CONTAINS,  "blond  hair")) 

Let  us  suppose  that  we  have  the  result  of  the  first  subqueiy  in  "tempi" 
and  the  result  of  the  second  subquery  in  "temp2".  The  remaining  steps  to  be  followed  are 
as  follows: 

If  you  want  to  intersect  /  union  /ininus  any  two  tables: 


1.  INTERSECT  two  tables 

2.  UNION  two  tables 

3.  MINUS 
0.  Quit 


Select  your  choice  ::  3 
Your  selection  is  MINUS 

Enter  the  name  of  the  first  temp  table:  tempi 

Enter  the  name  of  the  second  temp  table:  tempi 

Enter  a  temp  table  name  to  hold  the  result  of  the  query:  result 

There  are  2  records  that  match  the  query 

record  id  1  o_name  :  Rosemary  Stewart  rank  :  Lt  photo  id  is  1 

record  id  2  o_oame  :  Yavuz  ^ila  rank  :  Lt  Cdr  photo  id  is  3 

Do  you  warn  to  see  any  image  data  7  (y/n):  n 


4.  Aggregate  Fnncdons: 

As  we  mentioned  in  IV.B.4,  aggregate  fimctions  are  built-in  functions  in 
INGRES  SQL.  These  are  COUNT,  SUM,  MAX,  MIN  and  AVO.  In  this  subsection  we 
will  present  the  user  interface  of  the  aggregate  functions. 

a.  COUNT 

The  built-in  function  COUNT  returns  the  number  of  tuples  resulting  from 
a  query.  Let  us  give  an  example  to  clarify  how  COUNT  works: 
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Queiy:  How  many  executive  officers  are  there  in  the  fleet,  whose  pictures 
show  "tall  person  with  black  hair"? 

The  extended  SQL  statement  for  the  above  query: 

SELECT  COUNT(o_naine) 

FROM  officer 

WHERE  officer.picture  (CONTAINS,  "tail  person  with  black  hair"); 
When  the  user  wants  to  specify  a  query  as  above  he  should  first  select 
the  Retrieve  option  from  the  Main  Menu  and  then  follow  the  following  steps  to  get  the 
result: 

Enter  table  name  to  hold  the  temporary  result  of  the  query:  temp 
Select  the  table(.s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 

SELECT  TAfiLE(S);  officer 

Table  officer 

Select  the  attfibute(s)  separated  by  comma  <p» :  (<?>  for  HELP!) 

(Hit  <ESC>  for  no  attribute) 

SELECT  ATTRIBUTE(S) 

:  CNT(o_Daine) 

Any  condition  7  (yAi)  ry 
Gr^  conditioo  7  (y/h);  n 

Retrieval  Opeiatioas  Menu 

0.  Simple  Condition 

1.  taUel  where  EXISTS  table2 

2.  taUel  where  NOT  EXISTS  table2 

3.  uUel  IN  table2 

4.  taUel  NOT  IN  ttble2 


Select  your  choice  ::  0 
Enter  attribute:  picture 
nease  enter  your  query  description 

*  noun  ptuases  separate  by  commas  and  end  with  m  exclamation  mark 

*  sentence  end  with  a  period. 

(end  whole  description  with  an  empty  line): 


78 


Udl  peisoo  with  Mack  hairt 
Searching . 


There  are  2  records  that  match  the  query 
record  id  1  COUNT(o_name)  ■  2 
record  id  2  COUNT(o_name)  =  2 

b.  SUM.  AVG,  MAX,  MIN 

The  built-in  functions  SUM,  AVG,  MAX  and  MEN  aie  iq)plied  to  a  set 
or  multiset  of  numeric  values  and  returns  the  sum,  average,  maximum  and  minimum  of 
those  values.  Let  us  illustrate  this  with  an  example: 

Query:  Find  the  sum,  average,  maximum  and  minimum  of  the  salaries  of 
the  commanding  officers  who  are  stationed  at  sh^s  whose  picture  shows  "nuclear 
submarine  with  many  different  kinds  of  torpedoes'*. 

An  extended  SQL  statement  for  the  above  quay  can  be  written  as 

fcdlows: 

SELECTT  SUM(salary),  AVQ(salary),  MAX(salary),  MIN(salary) 

FROM  officer,  shq) 

WHERE  ship.cipt_idsofficer.o_id  and  ship.picture(CONTAINS,  "nuclear 

submarine  with  many  different  kinds  of  torpedoes"); 

When  the  user  wants  to  specify  such  a  query  he  should  first  select  the 

Retrieve  option  from  the  Main  Menu  and  then  follow  the  following  steps: 

Enter  table  name  to  hold  the  temporary  result  of  the  query  :  temp 

Select  the  table(s)  sepantted  by  comma  <,>  :  (<?>  for  HELP!) 

SELECT  TABLE(S):  shp,  officer 

Please  enter  your  join  condition 
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(<?>  for  help!) :  slitp.capt_id^£Bcer.o_id 
Table  ship 

Select  the  attribute(s)  separated  by  comma  <;>  :  (<?>  for  HELPI) 
(Hit  <ES<r>  for  no  aitii^te) 

SELECT  ATTR1BUTE(S)  :  <dESC> 

Table  officer 

Select  the  attribute(s)  separated  by  comma  <p»  :  (<?>  for  HELPI) 
(Hit  <ESC>  for  no  attribute) 

SELECT  ATTRIBUTE(S) 

:  sunKsalaiy),  avg(salary),  max(salaty),  min(saiaty) 

Any  condition  ?  (y/n):  y 
Or^  condition  7  (y/n):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  taUel  wbeie  EXISTS  table! 

2.  taUel  where  NOT  EXISTS  table! 

3.  taUel  IN  table! 

4.  taUel  NOT  IN  table! 


Select  your  choice  ::  0 

Enter  taUe  name:  ship 
Enter  attribute:  pkttne 

Please  enter  your  query  description 

*  noun  pbra^  separate  by  commas  and  end  with  an  exclamation  mark 

*  senienoe  end  wltb  a  period. 

(end  whUe  desaiption  with  an  empty  line): 

unclear  snboiatine  with  many  dUSnent  types  of  tmpedoesl 

Searching . 

Result  of  the  query: 

SUM(salary)3ilS000  AVO(salary)B7SOO  MAX(salary)«8000  MIN(salary)K7000 
B.  QUERY  PROCESSING 

In  Quqner  FV,  the  various  cases  in  which  an  extended  query  (i.e.,  a  simple  query 
or  a  complex  query)  must  be  deconqwsed  into  multiple  SQL  queries  are  illustrated.  We 
also  presented  that  this  method  of  decomposition  required  the  generation  of  temporary 
relational  tables  for  further  processing. 


80 


Complex  query  operations  actually  require  a  compiler  action  to  compile  the  user 
input  into  SQL  statements  for  INGRES.  In  addition  to  the  catalog  tables  given  in  [REFS], 
other  tables  are  also  required  to  keep  the  various  information  for  the  purpose  of  complex 
query  operations.  In  this  section  we  present  the  data  structures  used  for  implementing 
complex  queries. 

In  order  to  process  a  given  query,  the  system  needs  information  on  the  table  name, 
the  attribute  names,  and  the  data  types  of  the  attributes.  The  table  Selection_Array  is 
created  for  this  purpose  as  mentioned  in  [REFIO].  Since  aggregation  is  required  for  many 
database  applications,  we  decided  to  add  the  aggregate_type  to  the  Selection.Array,  to 
hold  the  type  of  the  built-in  aggregate  functions  in  SQL.  The  built-in  aggregate  functions 
in  SQL  are,  as  mentioned  in  rV.B.4,  COUNT,  SUM,  AVG,  MAX,  MIN  and  these  a»-e 
used  in  the  SELECT-clauses  of  queries. 

The  second  structure  is  the  Condition_ArTay  table.  This  structure  holds  the 
conditions  for  the  query  and  contains  the  table  name,  attribute  name  and  the  condition  for 
each  selection.  This  is  also  presented  in  [REFIO]  in  detail. 

The  third  structure  used  by  [REFIO]  was  Group_ArTay  table  which  holds  the  index 
to  the  Condition_ArTay  table  for  each  group  in  the  query.  We  did  not  use  this  structure 
to  implement  complex  queries,  since  we  decon:qx>se  a  given  complex  query  into  multiple 
simple  queries,  put  their  results  in  ten^rary  tables  and  recompose  these  results  to  get  the 
fmal  result. 

When  the  user  specifies  a  nested  query,  the  query  is  decomposed  into  multiple 
simple  queries  beginning  from  the  innermost  query.  The  information  about  the  table 
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name,  attribute  names,  the  data  types  of  the  attributes,etc...  are  put  into  the  data  structures 
mentioned  above.  After  the  result  is  retrieved  in  a  temporary  table  entered  by  the  user, 
the  data  structures  are  initialized  at  the  end  of  the  loop  controlling  the  selections  at  the 
same  level  or  at  the  end  of  the  outer  loop  controlling  the  selections  at  different  levels. 

When  the  user  specifies  a  complex  query  consisting  of  multiple  selections,  the  query 
is  again  decomposed  into  mult^le  simple  queries  (i.e.,  a  query  with  one  group  and 
arbitrarily  many  conditions  in  this  group).  Each  simple  query  is  evaluated  separately  and 
its  result  is  put  into  a  system  generated  temporary  table.  Finally  the  results  of  these 
single  queries,  depending  on  the  Boolean  operators  or  or  and  between  the  groups,  are 
recomposed  using  the  set  operations  UNION  or  INTERSECTION  to  get  the  final  result. 
Four  arrays  are  used  to  hold  the  temporary  table  names  and  to  let  the  user  enter  a  query 
consisting  of  arbitrarily  many  groups  and  arbitrarily  many  conditions  in  each  group. 

As  we  mentioned  in  IV.A.1,  INGRES  does  not  support  host  variables.  INGRES 
considers  the  MDBMS  program  as  an  tqrplication  program.  Information  received  from  the 
user  at  run  time  cannot  be  passed  to  INGRES  via  the  embedded  C  SQL  statements.  To 
solve  this  problem,  we  had  to  modify  the  C  code  generated  by  INGRES  in  the 
precompilation  process,  when  SQL  statements  have  already  been  transferred  into  C  code, 
in  such  a  way  that  variables  can  be  assigned  values  at  run  time.  The  result  is  then 
compiled  by  the  C  compiler  for  execution. 
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C.  HOW  TO  LINK  AND  RUN  THE  SYSTEM 


The  system  is  built  on  the  SUN  workstation  on  the  server  "Virgo"  at  cs.nps.navy.mil 

under  the  account  /n/virgoMoik/mdbms/MDBMS/db.  db  is  an  object  code  module  ready 

for  execution.  The  program  itself  is  called  db.sc.  The  program  db.sc  is  first  precompiled 

by  INGRES  SQL  precompiler  to  produce  db.c.  After  we  get  db.c,  we  have  to  compile  this 

program  using  the  C  compiler  into  an  object  code  and  link  it  to  the  INGRES  library, 

Suntools  library,  Sunwindows  library,  Sunpixrects  library  and  other  subprograms  shown 

in  Figure  3.4.  The  other  flies  needed  in  the  same  directory  are  prolog_parser, 

imagei_image_facts  and  diction.add.  To  make  the  lirtk  process  simpler,  a  Makefile  is  used 

as  shown  in  Figure  5.1. 

MDBMS.PATH  =  /o/virgo/woikAndbms/MDBMS 
PLPATH  =  /n/virgo/work/mdbms/MDBMS/PROLOG.SOURCE 
OBJMODSslSAinctiofis.o  ISsubrootine.o  fpc_pl_caU.o  pIcall.xdr.oN 
plcall.dnto  CaialogMaoagefnent.o  SoundModule.oX 
Userloterfaoe.o  CreaieModule.o  liuenModule.o  Retrieve.oN 
ImageModule.o 

PLMODS  «  $(PLPATH)/dict.pl\ 

S(PLPATHV<>ictioa.pl\ 

$(PLPATH)/interfaoe.pi  \ 

$(PLPATH)/simple.pl  \ 

$(PLPATHVIist_utiLpl  \ 

$(PLPATH)/tead_cipt.pl  \ 

$(PLPATH)/vatiable.pl  \ 

$(PLPATH)/gefi_util.pl  \ 

$(PLPATH)/ininiber.|ri  \ 

$(PLPATH)/semaittics.pl 
DEFINE  s  defines-h  erroisJi 
Global  =  01obalVatiables.h 
RPC «  pIcaU.h 
FLAGS  *  -g 
SERVER  -  ai9 
RSH-  rsb 
LINT  =  lint 
FILES  *  Makefile  \ 

rpc_pl_server.c  \ 
rpc_pl_call.c  \ 
picall.h  \ 
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plcall_svc.c  \ 
plcall_nlr.c  \ 
plcall.dntx  \ 

IMPORTANT_FILES  \ 
defines  Ji\ 
enois.h\ 

ISsubroutinex  \ 

ISfiinctionsx  \ 
comq>rolog_neux  \ 

x.o:;  cc  -c  $(FLAGS)  -o  $@  S*x 

Retrieve.o  CieateModule.o  InseitModule.o  CatalogMmiageineDt.o  \ 
Usednttrfiioe.o  SouodModiile.0  ImageModule.o:  $(GlobaI) 

ipc_pl_call.o  ipc_pl_sefver  pIcaU_svc.o  picall.xdr.o  plcaU.clnLo:  $(RPC) 
Reliieve.o  CreitteModule.o  InseitModule.o  CatalogMimageineDLo  \ 
Userlnterfaoe.o  SoundModule.o  lSfuiictioas.o  ISsubroutine.o  \ 
ipc_pI_call.o  ipc_pl_server  ImageModule.o:  $(DEF1NE) 

db:  db.o  $(OBJMODS) 

@ecbo  "cteating  DATABASE  ..." 
cc  SCFLAGS)  db.o  \ 

$(OBJMODS)\ 

fingres/lib/libqlib  /ingres/lib/compatUb  \ 

-Isunlool  -Isunwindow  -^nxiect  -Im  \ 

-o  db 


db.c:  db.sc 

eaqic  db.8c 

plca0_»ir_son4.o:  plcall_xdi.c 

$(RSH)  $(SERVER)  cc  -c  $(FLAGS)  \ 

-o  $(MDBMS_PATH)/plcaU_xdr_san4.o\ 
$(MDBMS_PATH)/|plcaa_xdr.c 

plcaIl_svc_sun4.o:  plcall_svc.c 

$(RSH)  KSERVER)  cc  -c  $(FLAGS)  \ 

-o  $(MDBMS_PATH)/||ricaILsvc_sun4.o  \ 
$(MDBMS_PATH)/i»lcan_svc.c 

ipc_pl_3erver  ipc_pl_servef  c  \ 
plcaIl_svc_sun4.o  \ 
pica0_»tr_son4.o  \ 
comqHT>log_neu.c  \ 

$(DEFINE) 

@eclio  "creating  ipc_pl_server ...” 

$(RSH)  KSERVER)  cc  $(FLAGS)  $(MDBMS_PATH)/ipc_pLsefver.c  \ 
$(MDBMS_PATH)^lcall_svc_sun4.o  \ 
$(MDBMS_PATH)/|pIcan_xdr_son4.o  \ 

-o  $(MDBMS_PATH)/fpc_pI_seTver 
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proloy  paner:  $(PLMODS)  $(PLPATH)/diction.add 
@ech0  "cieating  woloy  paraer  ..." 

sort  $(PLPATH)/dicUon.body  $(PLPATH)/diction.add  -o  $(PLPATH)/diction 
cat  $(PLPATH)/diction.bead  $(PLPA'TH)/dictioo  >  $(PLPATH)/diction.pl 
rm  $(PLPATH)/dictioo.qof 
$(RSH)  $(SERVER)  qpc  -c  $(PLPATH)/dicUon.pl 

$(RSH)  $(SERVER)  qpc  -D  $(PLPATH)/iiiterface  -o  SfPLPATHVproloy  parser 
mv  $(MDBMS  PATH)^roloy  parser  S(MDBMS  PATH)^rolog  parser.lastVeraion 
cp  $(PLPATH>^roloy  parser  $(MDBMS  PATH>^rolog  parser 

lot:  ♦.€ 

$(UNT)  $7 
@touch  lot 

prirK:  $(FILES) 

@echo  "Print  the  following  files:" 

@ls  $7 

@eclio  "Interrupt  with  Control  c" 

@sleep  3 
pr  $7  I  print 
@touch  print 

Figure  5.1.  Makefyie 

When  the  user  of  the  MDBMS  prototype  wants  to  compile  and  link  a  new 
implementation  of  db,  he  must  just  type  "make  db"  at  shell  prompt.  The  execution  module 
will  be  named  db.  In  the  rest  of  this  section  we  present  detailed  information  about  the 
Unix  utility  make. 

Make  is  a  command  generator.  It  generates  a  sequence  of  commands  for  execution 
by  the  Unix  shell.  Make  is  mostly  used  to  sort  out  dependency  relations  among  files.  For 
example,  a  program  must  be  generated  linking  object  files  and  libraries,  which  in  turn 
must  be  created  from  a  programming  language  source  files.  If  we  modify  one  or  more 
source  files,  we  must  re-link  the  program  after  recompiling  all  the  sources  which  are 
dependent  on  the  modified  files.  This  process  is  normally  repeated  many  times  during  the 
course  of  a  project. 
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It  is  this  process  that  "make"  greatly  simplifies.  By  recording  once  and  for  all  the 
specific  relationships  among  a  set  of  files,  we  can  thereafter  let  make  automatically 
perform  all  updating  tasks.  We  need  only  to  issue  the  command: 

$  make  db 

Make  then  carries  out  those  tasks  necessitated  by  the  project  work  since  the 
previous  make  command.  It  achieves  this  by  examining  the  file  system  to  determine  when 
the  relevant  files  were  last  modified.  For  example,  if  file  A  depends  on  file  B,  and  if  file 
B  was  modified  after  file  A,  then  file  A  must  be  "re-made"-compiled,  linked,  or  whatever. 

We  must  define  the  dependencies  between  modules  or  files  in  a  description  file. 
This  file  is  normally  given  the  name  Makefile.  A  descr^tion  file  consists  of  many  entries. 
Each  entry  consists  of  a  line  containing  a  colon  (the  dependency  line)  and  one  or  more 
command  lines  beginning  with  a  tab.  To  the  left  of  the  colon  on  the  dependency  line  are 
one  or  more  targets;  to  the  right  of  the  colon  are  component  files  on  which  the  targets 
depend.  The  tab-indented  command  lines  then  show  how  to  make  the  targets  out  of  their 
components.  For  example  in  Figure  5.1: 
db.c:  db.se 

esqlc  db.se 

means  that  db.c  depends  on  the  file  db.se.  db.se  is  executed  (i.e.,  the  program  db.se  is 
precompiled  by  the  INGRES  SQL  precompiler)  only  if  db.se  is  modified  after  the  last 
time  db.c  was  made. 

We  can  use  any  legitimate  shell  commands  and  filename  pattem_matching 
characters  in  a  description  file.  For  example  some  of  the  shell  commands  and  filename 
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pattern-matching  characters  used  in  the  description  file  in  Figure  5.1  are  sort,  cat,  tm,  mv, 
cp  and  *.c. 

In  a  description  file,  we  can  use  some  macro  definitions.  A  macro  definition  is  a 
line  containing  an  equals  sign  (=)  and  not  preceded  by  a  colon  or  a  tab.  Typically,  macro 
definitions  are  grouped  together  at  the  beginning  of  the  description  file.  The  name  to  the 
left  of  the  equals  sign  is  assigned  the  string  of  characters  following  the  equals  sign.  For 
example  the  line: 

MDBMS_PATH  =  /nA^irgo/work/mdbms/MDBMS 
is  a  macro  definition  and  subsequent  references  to 
$(MDBMS_PATH) 
are  interpreted  as 

/n/virgo/wotk/mdbms/MDBMS 

make  also  defines  several  "internal  macros"  that  can  simplify  the  description  file. 
One  of  them  is  $?.  $?  evaluates  to  the  list  of  components  that  are  younger  (i.e.,  more 
recently  modified)  than  the  current  target. 

evaluates  to  the  current  target  name  -  that  is,  the  target  being  made. 

In  a  description  file,  we  can  define  suffix  rules,  which  greatly  reduces  the 
complexity  of  our  description  files.  For  example,  the  suffix  rule  .c.o  in  Figure  5.1 
describes  how  to  make  a  .o  file  from  a  x  file. 

Finally,  an  important  command-line  usage  of  make  is: 

$make  -f  Makerose  dbrose 
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which  tells  make  to  use  the  file  "Makerose"  as  a  description  file  to  generate  the  target 
"dbiose”. 


88 


VI.  CONCLUSION  AND  SUMMARY 

Multimedia  database  management  systems  manage  multimedia  data  such  as  image 
data  and  sound  data  in  addition  to  fonnatted  data.  In  this  thesis,  a  prototype  has  been 
developed  maintaining  the  standard  data  and  media  data  to  implement  complex  queries. 

This  thesis  outlined  some  sample  applications  in  which  multimedia  data  is  required 
and  presented  the  design  and  implementation  of  conq>lex  queries  (i.e.,  nesting  conditions 
and  multiple  selections)  in  addition  to  set  operations  (UNION,  INTERSECTION  and 
MINUS)  and  aggregate  functions  (COUNT,  SUM,  AVG,  MAX,  MIN). 

Having  a  nested  query  means  a  complete  SELECT-FROM-WHERE  query  is  within 
the  WHERE-clause  of  another  query.  Nested  queries  are  evaluated  beginning  from  the 
innermost  query  to  the  outer  queries.  The  intermediate  result  at  each  level  is  put  into  a 
temporary  table  and  then  the  query  at  the  next  level  is  evaluated  until  the  final  result  is 
received. 

Multiple  selections  refer  to  queries  with  arbitrarily  many  groups  in  the  query  and 
arbitrarily  many  conditions  in  each  group.  Each  group  is  evaluated  and  its  result  is  put 
into  a  temporary  table.  The  results  of  all  groups  are  recomposed  using  the  set  operations 
UNION  or  INTERSECTION  to  get  the  final  result. 

Besides  UNION  and  INTERSECTION,  the  set  operation  MINUS  is  implemented 
to  let  the  user  evaluate  the  difference  of  two  tables. 
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Finally  aggregate  functions  COUNT,  SUM,  AVG,  MAX,  MIN  arc  implemented  to 
make  it  possible  to  find  the  number  of  tuples,  the  sum,  average,  maximum  and  minimum 
of  values  for  a  given  query. 

An  interactive  interface  was  implemented  instead  of  using  an  extended  version  of 
SQL  as  the  user  interface.  The  idea  behind  this  is  to  let  the  casual  users  use  the  system 
more  easily. 

At  present  only  sound  data  and  imt^e  data  are  supported  as  media  data  types. 
However,  it  is  possible  to  extend  the  ciq>ability  of  the  system  to  handle  other  media  types 
such  as  video,  text,  signals  in  a  similar  manner. 

Future  works  will  concentrate  on  implementation  of  a  graphical  user  interface  for 
the  system,  the  help  utility  and  the  transaction  processing.  For  graphical  user  interface 
issue,  some  research  is  being  done  to  find  the  best  tool  to  implement  the  design  done  by 
[REF9].  After  the  graphical  user  interface  is  in^lemented,  it  is  considered  that  a  help 
utility  for  the  entire  system  would  let  users  with  little  background  to  use  the  system  nnorc 
easily. 


> 
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APPENDIX  A  -  A  CX>MPREHENSIVE  EXAMPLE  OF  DESIGN  AND  USER 


INTERFACE  OF  COMPLEX  QUERIES 
Since  it  is  usually  very  difficult  to  express  con^lex  queries  in  words,  we  will 
present  an  artificial  example  to  show  how  a  complex  query  with  a  couple  of  groups  and 
a  couple  of  conditions  in  each  group,  some  being  simple  conditions  some  nesting 
conditions,  is  evaluated  according  to  the  design  we  have  presented  in  Chapter  IV  of  this 
thesis. 

SQL  Query: 

SELECT  o_name,  picture,  voice 
FROM  officer 
WHERE  ( o_id  IN 
(SELECT  exojd 
FROM  sh4> 

WHERE  (EXISTS 
(SELECT  ♦ 

FROM  ship-weapon,  ship 
WHERE  (  w_name  IN 
(SELECT  w_name 
FROM  weqK>n 

WHERE  fire_range  <  1(X)  and  weapon.picture  (CONTAINS,  "high 
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speed  guided  torpedo")) 
and  ship.s_no  =  ship_weq>on.s_no 
and  s_no  =  "SSBN  727" 
and  s_no  IN 

(SELECT  s_no 
FROM  ship 

WHERE  yr_built  >  1975)) 
or  (NOT  EXISTS 
(SELECT  * 

FROM  ship,  ship_wejq)on 

WHERE  ship.s_no=ship_weq)on.s_no  and  displacement  >  15,000) 
and  w_name  IN 

(SELECT  w.name 
FROM  weapon 

WHERE  weapon.pictiiie  (CONTAINS,  "long_range  missile 
against  land  targets"))) 

and  ship.pictuie  (CONTAINS,  "nuclear  submarine  with  many  missiles")) 
or  (type  =  "cmiser") 
and  salary  >  6000) 
or  (  NOT  EXISTS 
(SELECT  ♦ 

FROM  ship,  officer 
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WHERE  officer.ojd=:ship.exojd  and  ship.pictuxe  (CONTAINS,  ”gas  turbine 
powered  sh^") 
and  yr_built  <  1975)); 

The  above  query  consists  of  four  nesting  levels  and  is  evaluated  as  foUows: 

Create  Table  T1  as: 

SELECT  w_name 
FROM  weapon 

WHERE  fire_range  <  100  and  weqron.picture  (CONTAINS,  "high 
speed  guided  torpedo"); 

Create  Table  T2  as: 

SELECT  s_no 
FROM  ship 

WHERE  yr_built  >  1975; 

Create  Table  T3  as: 

SELECT* 

FROM  shjp,  ship_weiqpon 

WHERE  ship_weap(m.s_no=ship.s_no  and  displacement  >  15,000; 

Create  Table  T4  as: 

SELECT  w_name 
FROM  weqx>n 

WHERE  weapon.picturc  (CONTAINS,  "long.range  missile  against  land 
targets"); 
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Create  Table  T5  as: 

SELECT  * 

FROM  ship_weapon,  ship 

WHERE  ship.s_no=ship_we^n.s_no  and  w_nanie  IN  Tl; 
Create  Table  T6  as: 

SELECT  • 

FROM  ship_weapon^hip 
WHERE  sh4>.s_no=ship_weiq>on.s_no 
and  s_no="SSBN  727"; 

Create  Table  T7  as: 

SELECT  * 

FROM  sh4>_weiqpon,  ship 

WHERE  ship.s_nosslup_weapon.s_no  and  s_no  IN  T2; 
Create  Table  T8  as: 

SELECT* 

FROM  ship_weapon,  ship 

WTHERE  ship_weapon.s_no=ship.s_no  and  NOT  EXISTS  T3; 
Create  Table  T9  as: 

SELECT* 

FROM  ship_weapon,  ship 

WHERE  ship.s_no=ship_weapon.s_no  and  w_name  IN  T4; 

% 


Create  Table  R1  as: 


(T5  INTERSECT  T6  INTERSECT  T7)  UNION  (T8  INTERSECT  T9); 
Create  Table  TIP  as: 

SELECT  exo_id 
FROM  ship 
WHERE  EXISTS  Rl; 

Create  Table  Til  as: 

SELECT  exo_id 
FROM  ship 

WHERE  ship.picture  (CONTAINS,  "nuclear  submarine  with  many  missiles"); 
Create  Table  T12  as: 

SELECT  exo_id 
FROM  ship 

WHERE  type="craiser"; 

Create  Table  R2  as: 

(TIO  INTERSECT  Til)  UNION  T2 
Create  Table  T13  as: 

SELECT* 

FROM  ship,  officer 

WHERE  officer.o_id=ship.exo_id 

and  ship.picture  (CONTAINS,  "gas  turbine  powered  ship") 
and  yr_built  <  1975; 
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SELECT  o_nanie,  picture,  voice 
FROM  officer 


WHERE  ojd  IN  R2; 

Create  Table  T15  as: 

SELECT  o_name,  picture,  voice 
FROM  officer 
WHERE  salaiy  >  6000); 

Create  Table  T16  as: 

SELECT  o_name,  picture,  voice 
FROM  officer 

WHERE  NOT  EXISTS  T13; 

Create  Table  RESULT  as: 

(T14  INTERSECT  T13)  UNION  T16; 

The  user  interface  for  the  SQL  query  given  at  the  beginning  of  tfiis  Appendix  is  as 
follows: 


Multimedia  Database  Managenwnt  System 


1 .  Create  Table 

2.  Insert  Tuple 

3.  Retrieve 

4.  Delete 

5.  Modify 

6.  Print  out  current  data  information(iest  purpose) 
0.  Quit 
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Select  your  choice  ::  3 
Your  Selection  is  RETRIEVAL! 

Enter  table  name  to  hold  tlie  temporary  result  of  the  query:  T1 
Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLE(S):  weapon 

Table  we!q>on 

Select  the  attribute(s)  separated  by  comma  <>  :  (<?>  for  HELP!) 
(Hit  <ES(r>for  no  attribute) 

SELECT  ATTRIBUTE(S)  :  w.naine 

Any  condition  ?  (yAi):  y 
Group  condition  ?  (y/n);  y 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  table  1  IN  table2 

4.  table  1  NOT  IN  table2 


Select  your  choice  0 

Enter  attribute:  fiie_range 
Enter  the  condition:  <100 
Where  fire_range  <  100 

There  are  3  records  that  match  the  query 
record  id  1  w_name:  Vulcan  Phalanx 
record  id  2  w_name:Sea  Sparrow 
record  id  3  w_name:Mk48  Torpedo 

End  group  ?  :n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table!  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 
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Select  your  choice  ::  0 

Your  Selection  is  Simple  Condition 

Enter  attribute:  picture 

Please  enter  your  query  description 

noun  phrases  separate  by  commas  and  end  with  an  exclamation  mark 
*  sentence  end  with  a  period. 

(end  whole  description  with  an  empty  line): 
high  speed  guided  trnpedo! 

Searching . 

Below  is  the  result  of  the  Erst  2  conditions  in  group  1  : 
record  id  1  w_namc;Mk48  Torpedo 

End  group  ?:y 

Below  is  the  result  of  group  1  : 
record  id  1  w_name:Mk48  Torpedo 

End  condition  ?:y 

Belo'/v  is  the  final  result  of  all  groups  : 
record  id  1  w_naine:Mk48  Torpedo 

If  you  want  to  intersect  /  union  /  minus  any  two  tables: 


1.  INTERSECTT  two  tables 

2.  UNION  two  tables 

3.  MINUS 
0.  Quit 


Select  your  choice  ::  0 

More  selections  at  this  level  7  (yAi):  y 

Enter  table  name  to  hold  the  ten:qx)rary  result  of  the  query:  T2 
Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLE(S):  ship 

Table  ship 

Select  the  attribute(s)  separated  by  comma  <;>  :  (<?>  for  HELP!) 
(Hit  <ESC;>for  no  attribute) 

SELECT  ATTRIBUTE(S)  :  8_iio 
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Any  condition  ?  (y/n):  y 
Group  condition  ?  (y/n):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  tablel  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  0 

Enter  attribute:  yr_built 
Enter  the  condition:  >1975 
Where  yr_built>1975 

There  are  2  records  that  match  the  query 
record  id  1  s_no;DDG967 
record  id  2  s_no:SSBN727 

More  selections  at  this  level  ?  (y/n):  y 

Enter  table  name  to  hold  the  tenqjorary  result  of  the  query:  T3 
Select  the  table(s)  separate  by  comma  <,>  ;  (<?>  for  HELP!) 
SELECT  TABLE(S):  shqi,  sliip_weiqpon 

Please  enter  your  join  condition 

(<?>  for  help!) :  sh^.s__no=sliip_weapon.s_iK> 

Table  ship 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
(Hit  <ESC>for  no  attribute) 

SELECT  ATTRIBUTE(S)  :  s_iio 

Table  ship_weapon 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
(Hit  <ESC>for  no  attribute) 

SELECT  ATTRIBUTE(S)  :  <ESC> 

Any  condition  ?  (y/n):  y 
Group  condition  ?  (y/n):  n 
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Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  0 

Enter  attribute:  displacement 
Enter  the  condition:  >15,000 

There  are  2  records  that  match  the  query 
record  id  1  s_no:CV63 
record  id  2  s_no:SSBN727 

More  selections  at  this  level  7  (y/n):  y 

Enter  table  name  to  hold  the  temporary  result  of  the  query:  T4 
Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLE(S):  weapon 

Table  weapon 

Select  the  attribute(s)  separated  by  comma  <<► :  (<?>  for  HELP!) 
(Hit  <ESOfor  no  attribute) 

SELECT  ATTRIBUTE(S)  :  w_name 

Any  condition  ?  (y/n):  y 
Group  condition  7  (y/n):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  tablel  where  EXISTS  table2 

2.  tablel  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  0 

Enter  attribute:  pktnre 

Please  enter  your  query  description 
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noun  phrases  separate  by  commas  and  end  with  an  exclamation  mark 
*  sentence  end  with  a  period. 

(end  whole  description  with  an  en^ty  line): 
long  range  missile  against  land  targets! 

Searching . 

There  is  1  record  that  match  the  queiy 
record  id  1  w_no:Tomahawk 

More  selections  at  this  level  ?  (y/n);  n 
More  levels  ?  (y/n);  y 


Enter  table  name  to  hold  the  ten^raiy  result  of  the  query:  R1 

Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLE(S):  shqiLweifxm,  ship 

Please  enter  your  join  condition 

(<?>  for  help!) :  sliip.s_rio=sh^_weq)on.s_tK} 

Table  ship_weapon 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
SELECT  ATTRIBUTE(S) 

(Hit  <ESC>  for  no  attribute) 

:  8_no 
Table  ship 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
SELECT  ATrRIBUTE(S) 

(Hit  <ESC>  for  no  attribute) 

:  <ESO 

Any  condition  7  (y/n);  y 
Group  condition  7  (y/n):  y 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 
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Select  your  choice  ::  3 
Your  Selection  is  table  1  IN  table2 


Enter  the  temp  table  name  related  to  IN  ;  T1 

Enter  attribute  for  table  ship_weapon  for  condition  of  IN  :  w_naine 

Table  *♦  T1  *♦ 

SELECT  ATTRIBUTE  (only  one  attribute!):  w_name 

There  is  1  record  that  match  the  query 
record  id  1  s_no  :  SSBN727 

End  group  ?  :n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table!  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  table  1  IN  table2 

4.  table  1  NOT  IN  table2 


Select  your  choice  ::  0 

Enter  table  name:ship_weq)on 

Enter  attribute:  s_no 

Enter  the  condition:  ="SSBN727" 

Below  is  the  result  of  the  first  2  conditions  in  group  1  : 
There  is  1  record  that  match  the  query 
record  id  1  s_no  :  SSBN727 

End  group  ?  :n 


Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  table  1  IN  table2 
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4.  tablel  NOT  IN  table2 


Select  your  choice  ::  3 
Your  Selection  is  tablel  IN  table2 

Enter  the  temp  table  name  related  to  IN  ;  T2 

Enter  attribute  for  table  ship_weapon  for  condition  of  IN  :  8_no 

Table  **  T2  *♦ 

SELECT  ATTRIBUTE  (only  one  attribute!):  s_iio 

Below  is  the  result  of  the  first  3  conditions  in  group  1  : 
record  id  1  s_no  :  DDG967 
record  id  2  s_no  :  SSBN727 

End  group  7  :y 

Below  is  the  result  of  group  1  : 
record  id  1  s_no  :  DDG967 
record  id  2  s_no  :  SSBN727 

End  condition  ?  :n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  tablel  where  EXISTS  table2 

2.  tablel  where  NOT  EXISTS  table2 

3.  table!  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  2 

Your  Selection  is  tablel  where  NOT  EXISTS  table2 
Enter  the  temp  table  name  related  to  NOT  EXISTS  :  T3 
Please  enter  your  join  condition 

between  table  ship_weapon  and  ♦*  T3  :  T3.s_iio=sli^_weq>on.s_iio 

There  are  2  records  that  match  the  query 
record  id  1  s_no:DDG967 
record  id  2  s_no;SSBN727 
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End  group  ?  {y/n):n 


Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  3 
Your  Selection  is  tablel  IN  table2 

Enter  the  temp  table  name  related  to  IN  :  T4 

Enter  attribute  for  table  ship.weapon  for  condition  of  IN  :  wjuame 

Table  *♦  T4  *♦ 

SELECT  ATTRIBUTE  (only  one  attributel):  wjaame 

There  is  one  record  that  match  the  query: 
record  id  1  s_no  ;  SSBN727 

Below  is  the  result  of  first  two  conditions  in  group  2: 
record  id  1  s_no  :  SSBN727 

End  group  7  :y 

Below  is  the  result  of  group  2: 
record  id  1  s_no  :  SSBN727 

End  condition  7  (yAi):  y 

Below  is  the  final  result  of  all  groups  : 
record  id  1  s_no  :  SSBN727 

More  selections  at  this  level  7  (yAi):  n 
More  levels  7  (y/n):  y 

Enter  table  name  to  hold  the  tenq>orary  result  of  the  query:  R2 

Select  the  table(s)  separate  by  comma  <,>  :  (<7>  for  HELP!) 
SELECT  TABLECS):  ship 
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Tabic  ship 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
SELECT  ATTRIBUTE(S) 

(Hit  <ESC>  for  no  attribute) 

:  exo_id 

Any  condition  ?  (y/n):  y 
Group  condition  ?  (y/n):  y 


Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  1 

Your  Selection  is  tablel  where  EXISTS  table2 
Enter  the  temp  table  name  related  to  EXISTS  :  R1 
Please  enter  your  join  condition 

between  table  ship_weapon  and  **  R1  **  :  Rlj8_no=shi^.8jBo 

There  are  3  records  that  match  the  queiy 
record  id  1  exo_id:201 
record  id  2  cxo_id:203 
record  id  3  cxo_id:204 

End  group  ?  (y/n):n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  tablel  where  EXISTS  table2 

2.  tablel  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  0 
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Your  Selection  is  Simple  Condition 

Enter  attribute:  pictuie 

Please  enter  your  query  description 

*  noun  phrases  separate  by  conunas  and  end  with  an  exclamation  mark 

♦  sentence  end  with  a  period. 

(end  whole  description  with  an  empty  line): 
nuclear  subnumne  with  mai^  missiles! 

Searching . 

Below  is  the  result  of  the  first  2  conditions  in  group  1  : 
record  id  1  exo_id:204 

End  group  7  (y/n):  y 

Below  is  the  result  of  group  1  : 
record  id  1  exo_id:204 

End  condition  ?  (y/n):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  table  1  IN  table2 

4.  table  1  NOT  IN  table2 


Select  your  choice  ::  0 

Your  Selection  is  Simple  Condition 
Enter  attribute:  type 
Enter  condition  :  ='cnuafef 

There  are  2  records  that  match  the  query: 
record  id  1  exo_id:201 
record  id  2  exo_id;202 

End  group  ?  (y/h):  y 

Below  is  the  result  of  group  2: 
record  id  1  cxo_id:201 
record  id  2  exo  id:  202 
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End  condition  ?  (y/n):  y 


Below  is  the  Enal  result  of  all  groups: 
record  id  1  exo_id:201 
record  id  2  exo_id:202 
record  id  3  cxo_id:204 

More  selections  at  this  level  ?  (y/n);  y 

Enter  table  name  to  hold  the  teir^rary  result  of  the  query:  T13 

Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLES):  ship 

Table  ship 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
SELECT  ATTRTOUTECS) 

(Hit  <ESC>  for  no  attribute) 

:  exo_id 

Any  condition  ?  (y/n):  y 
Group  condition  ?  (y/n):  y 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  tablet  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  0 

Enter  attribute:  yr.built 
Enter  the  condition:  <15175 

There  is  2  record  that  match  the  query 
record  id  1  exo_id;100 
record  id  2  exo_id:101 


End  group  ?  :n 

Retrieval  Operations  Menu 


109 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ;;  0 

Your  Selection  is  Simple  Condition 

Enter  attribute:  picture 

Please  enter  your  query  description 

*  noun  phrases  separate  by  commas  and  end  with  an  exclamation  maik 

*  sentence  end  with  a  period. 

(end  whole  description  with  an  empty  line): 
gas  tnibine  powered 

Searching . 

There  are  two  records  that  match  the  query: 
record  id  1  cxo_id:100 
record  id  2  exo_id:101 

End  group  ?  (yM):  y 

Below  is  the  result  of  the  first  2  conditions  in  group  1  : 
record  id  1  exo_id:100 
record  id  2  exo_id:101 

End  group  7  (y/n):  y 

Below  is  the  result  of  group  1  : 
record  id  1  exo_id:100 
record  id  2  exo_id:10i 

End  condition  ?  (yAi):  y 

Below  is  the  final  result  of  all  groups: 
record  id  1  exo_id:100 
record  id  2  exo_id:101 

More  selections  at  this  level  ?  (y/h):  n 
More  levels  ?  (yAi):  y 
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Enter  table  name  to  hold  the  ten^rary  result  of  the  queiy:  RESULT 


Select  the  table(s)  separate  by  comma  <,>  :  (<?>  for  HELP!) 
SELECT  TABLE(S):  officer 

Table  officer 

Select  the  attribute(s)  separated  by  comma  :  (<?>  for  HELP!) 
SELECT  ATTRIBUTE(S) 

(Hit  <ESC>  for  no  attribute) 

:  ojoame,  picture,  voice 

Any  condition  ?  (yAi):  y 
Group  condition  ?  (y/n):  y 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  tablel  where  EXISTS  table2 

2.  tablel  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  3 
Your  Selection  is  tablel  IN  table2 

Enter  the  temp  table  name  related  to  IN  :  R2 

Enter  attribute  for  table  officer  for  condition  of  IN  :  o_id 

Table  **  R2  *• 

SELECT  ATTRIBUTE  (only  one  attribute!):  cxo_id 

There  is  3  record  that  matdi  die  query 
record  id  1  o_name:Pongsuwan  picture  id  is  1  voice  id  is  1 
record  id  2  o_iuuiie:R.  Stewart  picture  id  is  2  voice  id  is  2 
record  id  3  o_name:H.  Aygun  picture  id  is  3  voice  id  is  3 

End  group  ?  :n 


111 


Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  table  1  where  EXISTS  table2 

2.  table  1  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choke  ::  0 

Enter  attribute:  salary 
Enter  the  condition:  >6000 

There  is  1  record  that  match  the  query: 

record  id  1  o_name:Pongsuwan  picture  id  is  1  voice  id  is  1 

Below  is  the  result  of  the  first  two  conditions  in  group  1: 
record  id  1  o_name:Pongsuwan  picture  id  is  1  voice  id  is  1 

End  group  7  :y 

Below  is  the  result  of  group  1: 

record  id  1  o_name:Pongsuwan  picture  id  is  1  voice  id  is  1 
End  condition  7  (yM):  n 

Retrieval  Operations  Menu 


0.  Simple  Condition 

1.  tablel  where  EXISTS  table2 

2.  tablel  where  NOT  EXISTS  table2 

3.  tablel  IN  table2 

4.  tablel  NOT  IN  table2 


Select  your  choice  ::  2 

Your  Selection  is  tablel  where  NOT  EXISTS  table2 
Enter  the  temp  table  name  related  to  NOT  EXISTS  :  T13 
Please  enter  your  join  condition 

between  table  officer  and  ♦*  T13  :  officcr.o_id=T13.exo_id 

There  are  5  records  that  match  the  query 
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record  id  1  o_name:Y.  Atila  picture  id  is  8  voice  id  is  8 
record  id  2  o_naine:R.  Stewart  picture  id  is  2  voice  id  is  2 
record  id  3  o_name:H.  Aygun  picture  id  is  3  voice  id  is  3 
record  id  4  o_name:S.  Pei  picture  id  is  7  voice  id  is  7 
record  id  5  o_nanic:A.  Kara  picture  id  is  9  voice  id  is  9 

End  group  7  (y/n):  y 

Below  is  the  result  of  group  2: 

record  id  1  o_nanie:Y.  Atila  picture  id  is  8  voice  id  is  8 
record  id  2  o_name:R.  Stewart  picture  id  is  2  voice  id  is  2 
record  id  3  o_naiTie:H.  Aygun  picture  id  is  3  voice  id  is  3 

record  id  4  o_name:S.  Pei  picture  id  is  7  voice  id  is  7 

record  ^  o_naine:A.  Kara  picture  id  is  9  voice  id  is  9 

End  condition  ?  (yAi):  y 

Below  is  the  final  result  of  all  groups: 
record  id  I  o_nanie:P<»igsuwan  picture  id  is  1  voice  id  is  1 
record  id  2  o_name:R.  Stewart  picture  id  is  2  voice  id  is  2 
record  id  3  o_nanie:H.  Aygun  picture  id  is  3  voice  id  is  3 
record  id  4  o.nameiS.  Pei  picture  id  is  7  voice  id  is  7 

record  id  5  o_nanie:Y.  Atila  picture  id  is  8  voice  id  is  8 

record  id  6  ojnaine:A.  Kara  picture  id  is  9  voice  id  is  9 

Do  you  want  to  see  any  image  data  ?  (yAi):y 

Which  tuple’s  image  do  you  want  to  see?  (enter  record  id) :  S 

Record  no  5  filename  :An7_mntAiA'irgo/wotk/mdbms/MDBMS/91 163. 173948 
Show  image  .... 

The  following  photo  has  been  found: 

Number:  5 
Description: 

»black  hair, big  nose, thin  body,  tall  person  widi  glasses! 

« 

Do  you  want  to  see  the  photo?:  y 

***  The  photo  is  displayed  on  the  screen 

Do  you  want  to  see  more  image  data  ?  (Y/N):  n 

Which  tuple’s  sound  do  you  want  to  hear?  (enter  record  id):  2 
Sound  management 
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Record  no  2 

Play  the  sound  ?  (yM):  y 
***  Sound  is  play-backed  *** 

Do  you  want  to  hear  more  sound  data  ?  (Y/N);  n 


114 


APPENDIX  B  -  FRCXjRAM  CX)DE  OF  RETRIEVAL  OPERATIONS 


Title  :  Retrievc.c 

Author  :  Aygun/  Stewart 

Date  :  August  1991 

History  :  Improvements  on  Retrieval  operations  to  include  complex 

query  processing.  Also  contains  the  procedures  for  modify 
and  deletion  operations.  An  if  clause  provides  the  ability 
to  switch  options  for  retrieval, modify  or  deletion  of  data 
Description:This  module  implements  the  retrieval  process  in  the 
Multimedia  Database  System. 


Export  Interface  : 

retrieve(RTRVE_MODE): 

incorporates  the  retrieval  process.  The  user  is  asked  to 
enter  the  name  of  table(s)  and  attribute(s)  he  wants  to 
retrieve.  E  he  does  not  know  the  ruunes  of  the  tables  or 
attributes,  he  can  type  "?"  to  list  all  the  tables  and 
attributes  in  the  catalog. 
retricve(DEL_MODE): 

incorporates  the  deletion  process.  The  user  is  asked  to 
enter  table  name  and  condition  for  deletion. 
retrieve(MOD_MODE): 

incorporates  the  modification  process.  The  user  is  asked  to 
enter  table  name  and  condition  for  modification. 

***4>«4i4i4t*iti****4i*4i***4i4i*4>*4i*4i*4i4i**4i4i4i*4>4i4i4i4>4i4i4t4i4>*4>4i4t4i4>4i4i***4t4i**4>4t**4>**«4i 


Import  Interface  : 

print_all_table() :  Prints  out  the  table  catalog  information  on  screen 
from  InsertModule.c 


check_table_name():  Checks  the  table_name  if  it  is  duplicate 
get_media_name()  :  Get  media  table  name  by  appending  table_key  at  the 
end  of  att_name. 
from  CreateModule.c 


yes_no_answer()  :  Gets  yes  or  no  answer  from  the  user. 
clr_scr()  ;  Clears  the  screen. 

from  Userlnterface.c 
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play_sound(filenaine):Sends  command  from  SUN  to  PC  to  play  the  SOUND  * 
media  file, 
from  SoundModule.c 


******m*m******************m**********m********#*^4,4t**m*****************^ 


#include  <stdio.h> 

#include  <string.h> 

#include  <pixrect/pixrect_hs.h> 
#include  <sys/wait.h> 

#include  <suntool/sunview.h> 
#include  <:suntool/canvasJi> 
#include  "defines.h" 

#include  "errors.h" 

#include  "stnict.h'' 

#include  "QlobalVariables.h" 
#inclade  <ipc/ipcii> 

#include  "plcall.h'' 

#include  "defines.h" 

#include  "errors.h" 


char  c; 

char  temp_inedia_naine[3]; 
char  join_condition[100]; 

int  look_more=0;  /*  use  for  loop  die  cursor  ♦/ 

struct  select.att  sattflO]; 

struct  select.tab  stab[10]; 

struct  group  group_couiit[10]; 

int  o,pJc4iumcon^umgtoup4cond; 

STR.naine  tab[10]; 
char  '"all.condition; 
char  condition!  100]; 

/*  Selection  attribute  */ 

/*  Conditicm  attribute  */ 

STR_name  att[10]; 

/*  Each  group  of  attribute  •/ 
int  att_gToup[lO]; 

/*  Condition  type  of  each  attribute  0  for  formatted  1  for  image  2  for  sound*/ 
int  contype[10]; 

/*  Media  attribute  for  description  ♦/ 

STR_name  media_att[10]; 
int  number_media; 

/*  Condition  for  each  attribute  */ 
char  con[10j[100]; 

/•  Attribute  type  for  each  select  •/ 
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STR_name  atttypc[10]; 

int  cond,gcond,Lcond[  10],m=0^=0,y=0^=0,o=0; 

char  buff[100],a,yes_no_answer(); 

char  teinp_table[20]; 

char  temp_tablel[20]; 

char  teinp_table2[20]; 

char  temp_table3[5]=|  ’h’,’u’.’s’,’i’,’4’); 

char  tciiip_table4l5]=j  ’h’,’u’,’s’,’i’,’5’|; 

char  teii^)_table8|5]={  ’h’.’u’.’s’.’o’.’l’}; 

char  teinp_table9[5]={  ’h’,’u’,’s’,’o’,’2’ } ; 

char  temp_tablel0[5]=|  ’h’,’u’,’s’,’o’,’3’); 

char  teinp_tablellt5]={  ’h’,’u’,’s’,’o*.’4’}; 

chargroupl[3]=IV.V.’r); 

chargroup2[3]={*g*,V,*2’|; 

char  condition_for_iiested[100]; 

char  attributB_for_iiested[20]; 

char  join_for_nested[99]; 

int  moie.selections; 

int  morejevels; 

int  aggregate.found; 

chartlt5J=|’t’.’_’.’a’,’_’.’l’); 
chart2(5J=|’t’,’_’.’a’,’  ’,’2’|; 
chart3l5]=|’t’,’_’,’a’/_’.’3’); 

char  t4[5]=|’t’,’_’,’a’,’_’,’4’); 
char  wrong_descip  =  TRUE; 
int  act.media.count; 
int  act_nicdia_list[10]; 
int  nwdia.counterssQ; 
int  fomiatted.flag; 
int  image.flag; 
int  sound_flag; 

^***mm******m***m****m************m*#0im**m**4i***<¥********4i************* 

Procedure  initialize  the  array  to  enq>ty 

Initialize  all  parameters  used  in  the  retrieve  to  null 

f**************************#*******i,)tniimm*****ti********^,^,0)i,i,t,^i^,^,4,t,******^ 

void  inhO 

{ 

int  ij; 

icond^O; 

gcond=0; 

numgroup=0; 

numcon=0; 

for  (i=K);i<10;i-H-)  { 
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for  (j=0;j  <  13;j++)  { 
satt[i].t_nainclj]  =0; 
satt[i].a_nainelj]  =0; 
stab[i].t_naiiielj]  =0; 
alt[i](jl=0; 
tab[i]|j]=0; 

) 

for  O=0;j<100u-H-)  ( 
con[i]0]=’0’; 

I 

1 

]**♦♦♦*♦♦♦♦♦♦♦**♦♦♦♦♦*♦**♦♦♦♦♦♦♦♦♦♦♦•*♦♦*♦******•*****♦**♦******♦♦♦***** 
This  procedure  get  the  table  name,  attribute  name  of  that  table 

and  then  return  the  attribute  type  to  the  user 

^0ti******************************************************************** 

getatttype(tab_name,att_name,att_type) 

STR_name  tab_name; 

STR_name  att_name; 

STR_name  att_type; 

I 

int  iJJk,found, count; 
found  -  0; 

for  (i=0;i  <  tablc_cottnt;i++)  / 

if  (sticmp(tablc_array[i].tablc_name,tab_.naine)a===0)  | 
j  ss  tablc_array[i].att_entiy; 
count  s  table_aiTay[i].att_count; 
i=  1000; 

) 

1 

for  ( k*0dc  <  countdc++)  ( 
if  (sticn[qK«tt_«nayljJ.att_naine,  att_name)=»0)  | 
sticpy(att_typc,att_airayO].data_typc); 

/*  For  test  mily  */ 

printf("Nn%s",att_ainiy(j].att_name); 
printf("Nt%s>n",att_type); 
found  =  1; 
k*  1000; 

» 

j  =  att_arraytj].next_index; 

I 

} 
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^4i  4>  41*41 4>4i*>l>4<4<i|«l>4i4i4i4i4>4i>|i4>4i4<<ii4i4<4<4i4>4<%4i4)4i4>4>4i4i*4<4<4i4i4>4>4i4i4>4t4i4<4>#4i4i4<i|(4<4ci|c4i4i:|c4<4<4<4i4i4i4i^ 


procedure  to  process  the  sound  condition 

put  the  result  in  the  media  tale  [number  condition]  for  process  later 


^  4i  4<  4>  4>  4>  4i  4>  4>  4<  4>  4i  4<  4>  4<  *  4>  4i  4t  4>  4i  4>  4<  4<  4>  4>  4>  4<  4<  4i  4<  *  4i  4t  4i  *  4>  4i  4>  4i  4>  *  4i  4>  4i  4>  4>  4>  4i  4i  4>  4<  4>  4<  4<  4>  4<  4<  41 4>  4<  4i  4>  4(  4<  4>  4>  41 4(  4i  4< 


void  process_icon3(queiy_phrase4iumber) 
char  query_phrase[DESCRLEN+l]; 
int  number; 

I 

int  id; 

char  answer,  repeat,  yes_no_answer  (),con_number4nedianum; 

int  i,  query_err,  queryjen,  in_len,  f_flag4bund; 

struct  pixrect  ♦pr; 

colonnap_t  cm; 

char  descr[DESCRLEN+l]; 

int  show_pid,  wait_pid; 

union  wait  status; 

int  imageno; 

printf  ("VnEntering  RETRIEVE  ...Vi"); 
cm.type  =  RMT_NONE; 
cmiength  =  0; 
cmjn^[0]  =  NULL; 
cm.map[l]  =  NULL; 
cm.map[2]  =  NULL; 

/*  this  is  absolutely  necessaiylll!  Otherwise  pr_load_colormap  might 
not  allocate  storage  for  the  coloimap,  if  the  garbage  found  in 
the  cm  stractuie  seems  to  make  sense.  The  result,  of  course,  is 
segmentation  fault.  This  bug  was  very  hard  to  find.  *{ 

I 

/*  #  line  193  "p2.sc"  */  /*  create  table  ♦/ 

I 


Ilsqlnit((char  *)0); 
IIwiitedb("create  "); 
temp_media_name[0]= ’p  ’ ; 
medianum=number-t48 ; 
temp_media_nanie[l  ]=niedianum; 
temp_media_name[2]=0; 
printf("Vn%s"  ,temp_media_name); 
nwritedb(temp_media_nanie); 

nwritedb("("); 

nwritedb("s_id=i4)"); 
lIsqSync(0,(char  ♦lO); 

I 


/♦#  line  194  "p2.sc"  */  /*  host  code  ♦/ 
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printfCThe  query  description  now  is;'«>>%s«?«\ti",queiy_phrase); 
printf  ("Searchqing  .....V); 

I*  exec  sql  declare  cl  cursor  for 

select  i_id,  PIXRECT  (i_image),  CXDLORMAP  (i_image), 

DESCRIPTION  (i_image) 
from  emp_imgl 

where  SHOWS  (i_image,  query_phrase); 

The  statement  is  deleted  by  the  preprocessor. 

However,  the  output  functions  and  tin  selection  conditions 
associated  with  the  cursor  cl  will  be  used  later. 

The  following  declarations  are  generated:  *! 

I 

int  ISerrorcl; 

char  ISeinnccl[ERRLEN+l]; 
char  *ISfhcl[FILENAMELEN  +  1]; 
char  *ISdescrcl(DESCRLEN  +  1]; 
sqlca.sqlcode  =  0; 

ISenmccl[0]  =  ’\0’; 

/•  exec  sql  open  cl;  */ 

t*  exec  sql  whenever  not  found  go  to  closed;  */ 

/*  translated  by  preprocessor  into:  */ 

if  ( ISerrorcl  =  ISshows_open("image","i_image"4Sfiicl,query_phrase4Scnmccl) 

{ 

sqlca.sqlcode  s  ISerrorcl; 
if  (  sqlca-sqlcode  =  QUERY_WORD_ERR  II 
sqlca.sqlcode  *=  QUERY_STRUCnJRE_ERR  ) 
strcpy(sqlca.S(]^ernn.sqlerrmc4Senmccl ); 

) 

r  end  of  preprocessor  output  for  open  cl  ♦/ 
if  (  Isqlca-sqlcode  ) 

( 

f_flag  =  0; 
for  (;;) 

I 

/*  exec  sql  fetch  cl 
into  .imageno,  ;pr,  :cm,  :descr. 

This  is  translated  by  the  preprocessor  into:  ♦/ 

if  (  ISerrorcl  = 
ISshows_fetch(  image", ”i_image"4Sfiicl,quety_phrase4Serrmccl) ) 
sqlca.sqlcode  =  ISerrorcl; 

/*  printf("main.sc(ISfiicl):  %sVi",  ISfiicI);  V 
if  (  sqlca.sqlcode  =  NOT_FOUND  ) 
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goto  closed; 
f_flag  =  1; 
if  (  lsqlca.sqlcode  ) 

I 

/*#  line  653  "pi. sc"  */  /*  select  ♦/ 
strcpy  (table_anay[table_index].table_name,  tab[numbeT]); 
found  s=  check_table_name(); 
table_cursor  =  table_entiy; 
strcpy(niedia_name,att[number]); 
get__media_namc(); 
printf("%s"4nedia_name); 

nsqlnit(&sqlca); 

nwritedb("retrieve(imageno="); 

IIwritedb(media_nanie); 

nwritedb(".s_id,ISdescrcl="); 

IIwritedb(media_nanie); 
llwritedb(".descrp)w"); 
nwritedb("heiB  "); 
nwTitedb(niedia_nanie); 
nwritedb(".f_id="); 
nsetdomC  1 ,32,04Sfiicl); 
nwritedlK"  "); 
nsqRinit(&sqlca): 
if  (IlerrtestO  =  0)  | 
if  (IlnextgetO  !=  0)  | 

IIretdom(  1 30,4,&imageno); 

UietdomC  1 32,0  JSdescic  1 ); 

)  /*  nnextget  ♦/ 
nsqFlush(&sqlca); 

}  t*  neittest  •/ 

) 

/*#  line  657  "pi. sc"  */  /*  host  code  */ 
if  (!sqlca.sqlcode) 

ISenorcl  =  ISdescrqnion  (ISfhcl,  ISdescrcl,  descr); 
sqlca.sqlcode  =  ISerrorcl; 

I 

else 

sqlca.sqlcode  =  PROORAM_ERR; 

I 

/*  end  of  preprocessor  output  for  fetch  cl  ♦/ 
if  (sqlca.sqlcode) 
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goto  closed; 
id  =  imageno; 

/♦  #  line  270  "p2.sc"  */  /*  insert  */ 

I 

Ilsqlnit((char  ♦)0); 

IlwritedbC’append  to  "); 
nwritedb(tenip_inedia_nanie); 

IIwritedb("(s_id="); 

UsetdomC  1 ,30,4,&id); 
nwritedb("  )"); 

IIsqSync(3,(char  ♦lO); 

) 

/*#  line  272  ”p2sc”  ♦/  /*  host  code  ♦/ 

}  /♦  end  for  loop  of  cursor  cl  ♦/ 
closed: 

/*  exec  sql  close  cl;  */ 

/*  translated  by  the  preprocessor  into:  */ 

sqlca.sqlcode  = 

ISshows_close(”image","i_image"JSfhcl,query_phrase4Serrmccl); 

/*#  line  693  "pi. sc"  */  /*  host  code  */ 

)  /*  end  of  successful  open  cl;  correct  query  description  */ 

)  /*  end  of  preprocessor  declaration  block  */ 

if  (  sqlca.sqlcode  =  QUERY_WORD_ERR  ) 

printfC’The  system  cannot  understand  the  word 
»%s«I'n",s^ca.sqleirm.sqleiimc); 
query_eii  =  1; 

I 

if  (  sqlca.sqlcode  =  QUERY_STRUCTURE_ERR  ) 

printfC'The  system  cannot  interpret  the 
phraseNn»Vi%s«?«"^qlca-sqleiim.sqlenmc); 
queiy_err  =  1; 

) 

if  (  qoery_crr ) 

I 

I 

I 

if  (  !f_£lag  ) 

printf(”There  are  no  media  matching  that  query  description.Nn"); 
if  (  sqlca.sqlcode  ) 

printfC’An  error  has  occuicd  while  accessing  the  databaseNn\ 
sql  error  code:  %d^",  sqlca.sqlcode); 
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clr_scr(); 

)  /*  end  of  ictrieve_photo  ()  ♦/ 

^t^^^^^m***********************************************************/ 


procedure  to  process  the  image  condition  put  the  result  in  the  media  tale  [number 
condition]  for  process  later. 


^*^l^l0^l0^l^)^l^l*m*0*******<ttt>*******<l>*’t‘*^‘******m**^^****^l**'¥**#’^l***^^#*m****** 


void  process_icon2(queiy_phrase^umber) 
char  query_phrase[DESCRLEN+l]; 
int  number; 

( 

int  id; 

char  answer,  repeat,  yes_no_answer  (),con_number4nedianum; 

int  i,  query_err,  queryjen,  in_len,  f_flag,found; 

struct  pixrect  ♦pr; 

colonnap_t  cm; 

char  descr[DESCRLEN+l]; 

int  show_pid,  wait_pid; 

union  wait  status; 

int  imageno; 

printf  ("VnEntering  RETRIEVE  ...V); 
cm.type  -  RMT_NONE; 
cm.length  =  0; 
cm.mq)[0]  =  NULL; 
cm.mq7[l]  =  NULL; 
cm.ii^[2]  =  NULL; 

/*  this  is  absolutely  necessary! Ml  Otherwise  pr_load_colormsq>  might 
not  allocate  storage  for  the  colormap,  if  the  garbage  found  in 
the  cm  stractuie  seems  to  make  sense.  The  result,  of  course,  is 
segmentation  fault.  This  bug  was  very  hard  to  End.  */ 

I 

/*  #  line  193  "p2.sc"  */  /*  create  table  */ 

{ 

Ilsqlnit((char  *)0); 

IIwritedb("create  "); 
temp_media_name[0]= ’p  ’ ; 
medianum=number448; 
temp_media_name[  1  ]=medianum; 
temp_media_name[2]=0; 
printf('\i%s"  ,temp_niedia_name); 

IIwritedb(temp_media_name); 

IIwritedb("("); 

nwritcdb("i_id=i4)"); 

IIsqSync(0,(char  *)0); 
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) 

/♦#  line  194  "p2.sc"  */  /*  host  code  */ 

printfCThe  query  description  now  is;'^>%s<<NnVn'', query  j>hrase); 
printf  ("Searching  .....V); 

I*  exec  s^  declare  cl  cursor  for 

select  i_id,  PDCRECT  (i_image),  COLORMAP  (Limage), 

DESdJRIPnON  (Limage) 
firom  emp_imgl 

where  SHOWS  (Limage,  query_i^ase); 

The  statement  is  deleted  by  the  preprocessor. 

However,  the  ouqnit  functions  and  the  selection  conditions 
associated  with  the  cursor  cl  will  be  used  later. 

The  foUowing  declarations  are  generated:  *! 

I 

int  ISerrorcl; 

char  ISemnccl[ERRLEN-f  1]; 
char  lSfncl[FILENAMELEN  +  1]; 
char  ISdesctcl[DESCRLEN  -t-  1]; 
sqlca.sqlcode  s  0; 

ISetnnccl[0]  =  N5’; 

/*  exec  sql  open  cl;  */ 

/*  exec  sql  whenever  not  found  go  to  closed;  */ 

/*  translated  by  preprocessor  into:  ♦/ 

if  ( ISerrorcl  =  lSshows_open("image","Limage"4S&icl,query_phrase4[Senmccl) 

) 

( 

sqlca.s(^code  s  ISerrorcl; 
if  (  sqlca.sqlcode  =*  QUERY_WORD_ERR  II 
s^ca.sqlcode  =  QUERY_STRUCTURE_ERR ) 
strcpy(s(^ca.sqlenm.s^ennicJSenmccl); 

) 

/*  end  of  preprocessor  output  for  open  cl  */ 
if  (  lsqlca.sqlcode  ) 

I 

f_flag  =  0; 
for  (;;) 

I 

/*  exec  sql  fetch  cl 
into  :imageno,  :pr,  :cm,  :descr; 

This  is  translated  by  the  preprocessor  into:  *! 

if  (  ISerrorcl  = 
ISshows_fetch("image", "Limage" JSfiicl,queiy_phrase4Serrmccl) ) 
sqlca.sqlcode  =  ISerrorcl; 


124 


I*  printf("inain.sc(ISfiicl):  %s\n",  ISfiicl);  */ 
if  (  sqlca.sqlcode  —  N0T_F01JND  ) 

( 

printf("main.sc:  ISshows_fetch  liefeit  NOT_FOUND"); 
goto  closed; 

I 

f_flag  =  1; 

if  (  !sqlca.sq^code  ) 

I 

/•  #  line  653  "pi. sc"  ♦/  /*  select  */ 
strcpy  (tablc_aiTay[tablc_index].tablc_name,  tab[nuinber]); 
found  =  check_table_name(); 
table_cursor  =  tablc_entiy; 
strcpy(media_name,att[number]); 
get_n)edia_name(); 
printf("%s"^dia_nanie): 

I 

nsqlnit(&sqlca); 

IIwritedb("retricve(iniageno="); 

llwritedb(media_nanie); 

IlwritedbC"  .i.idJSdescrc  1=" ); 
nwritedb(niedia_name); 
nwritedb("  .descip)w"); 
nwritedb("here  "); 

IIwritedb(niedia_nanie): 

nwritedb(".f_id=:"); 

IIsetdom(  1 32,04Sfiic  1 ); 

DwritedM"  "); 

Ilsq[Rinit(&sqlca); 
if  (Ilentest()  ==  0)  | 
if  (IlnextgetO  Is  0)  ( 

IlretdomC  1 30,4,&iniageno); 

Ilretdom( 1 32,04Sdescicl); 

1  /•  nnextget  */ 
nsqFlush(&sqlca); 

)  t*  Ilentest  ♦/ 

I 

/*#  line  657  "pi. sc"  ♦/  /*  host  code  ♦/ 
if  (!sqlca.sqlcode) 

{ 

if  (!(ISeiToicl  s  ISpixiect  (ISfncl,  ISdescicl,  &pr))) 
if  (KISerrorcl  =  IScolonnap  (ISfiicl,  ISdescrcl,  &cni))) 
ISerrorcl  =  ISdescription  (ISfncl,  ISdescrcl,  descr); 
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sqlca.sqlcode  =  ISeirorcl; 

I 

else 

s(^ca.sqlcode  =  PROGRAM_ERR; 

) 

/*  end  of  preprocessor  output  for  fetch  cl  */ 
if  (sqlca.sqlcode) 
goto  closed; 
id  =  imageno; 

/*#  line  270  "p2.sc"  */  /*  insert  */ 

I 

nsqlnit((char  *)0); 

IIwritedb("append  to  "); 

llwritedb(teinp_media_naine); 

llwritedb("(i_id="); 

IIsetdotn(  1 30,4, &id); 
nwritedb("  )"); 

IIsqSync(3,(char  *)0); 

) 

/*  #  line  272  "p2.sc"  */  /*  host  code  •/ 

)  /•  end  for  loop  of  cursor  cl  */ 
closed: 

/*  exec  sql  close  d;  */ 

t*  translated  by  the  preprocessor  into:  */ 

sqlca.sqlcode  = 
ISshows_close("iinage","i_image"4Sfiicl  ,query_phra5e4Semnccl ); 
r  #  line  693  "pi. sc"  ♦/  /*  host  code  */ 

)  I*  end  of  successful  open  cl;  correct  query  description  */ 

I  f*  end  of  preprocessor  declaration  block  */ 
if  (  sqlca.sqlcode  ==*=  QUERY_WORD_ERR  ) 

( 

printf("The  system  cannot  understand  the  word 
»%s«^n"  ,sqlca.sqlertm.sqleriinc); 
query_err  =  1; 

) 

if  (  sc^ca.sqlcode  =  QUERY_STRUC1‘URE_ERR  ) 

I 

printf("The  system  cannot  interpret  the 
phraseNn»Nn%s«^"  ,sqlca.sqlernn.sqlerrmc); 
query_err  =  1; 

) 

if  (  query.err  ) 

I 
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) 

I 

if  (  !f_flag  ) 

printf("There  are  no  media  matching  that  query  description.Nn"); 
if  (  sqlca.sqlcode  ) 

printfC'Aji  error  has  occvued  while  accessing  the  database^X 
sql  error  code:  %dVn",  sqlca.sqlcode); 
clr_scr(); 

)  I*  end  of  retrieve_photo  ()  */ 

^  4t  4t  *  Id  *  4c  *  *  *  111  *  4i  4i  *  4i  *  4i  4>  41 *  *  *  4<  >1' *  «  *  >l<  >l>  i|>  *  *  4>  %  *  4>  *  *  4t  *  4t  *  *  « i|>  4iit(  * 


This  procedure  search  through  the  media  relation  and  get  the 
file  name  that  match  with  the  result  table  and  send  to  the 
present  photo  procedure 


^4>4i4i4i4i4i4c4i4i4>4i4i4>4i4i4>4i4i4i4>4i4i4i4i4c4i4c4i*4i4>id4i4i4i4i4c4i4c*4i4c4i4i4i4i4i4i4c4i4i4i4i4i4i4<4i4>4c4i4>4i4i4i4i4<4iy 

display_photo  (imageno,tupleno,temp_table,  image_id) 

int  imageno; 

int  tupleno; 

char  temp_table[20]; 

int  image_id; 

I 


int  desired.tupleno; 
char  image_value[20]; 
char  answer,  repeat,  yes_no_answer  (); 
char  query j)hrase[DESC1lLEN+ll, 
in_phrase[DESCRLEN+l]; 

int  i=0J=0,  k,  c,  pid,  query_ctr,  query_len,  in_len,  f_flag4ook_more=0; 
struct  pixrect  ♦pr; 
coloim(q>_t  cm; 

char  ISfiil[FILENAMELEN+l); 
char  descrLDESCRLEN+1]; 
int  show_pid,  wait_pid; 
int  ISetror; 

STR_path  flle_name; 

char  lSdescrl[DESCRLEN+l]; 


cm.type  =  RMT_NONE; 
cmdength  =  0; 
cm.map[0]  =  NULL; 
cm.map[l]  =  NULL; 
cm.map[2]  =  NULL; 
desired_tupleno=:tupIeno; 

/*  this  is  absolutely  necessary!!!!  Otherwise  pr_load_colonnap  might 
not  allocate  storage  for  the  colorm^,  if  tb^  garbage  found  in 
the  cm  structure  seems  to  make  sense.  Hie  result,  of  course,  is 
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segmentation  fault.  This  bug  was  very  hard  to  find.  ♦/ 

/*  exec  sql  select  PIXRECT  (i_image),  COLORMAP  (i_image), 
DESCRIPTION  (i_image) 
into  :pr,  :cm,  :descr 
from  image 

where  i_id  =  :imageno; 

This  Image-SQL  statement  is  transfoimed  into  die  following 
sequence  of  statements  by  the  preprocessor: 

*/ 

c=l; 

inttostr(image_id,  image_value); 

{ 

if  (ncsiOpen((char  *)0,"cursor_outputl","db",04nedia_name)  f=  0)  | 
nwritedb("retrieve(ISfiil="); 
nwritedb(media_name); 
nwritedb("."); 
nwritedb("f_idJ[Sdescrl=:"); 

Ilwritedb(media_name); 

IlwritedbC  .descip" ); 
nwritedb(")where  "); 

IIwritedb(media_name); 
nwiitedbC .  i^ids" ); 
nwritedb(image_value); 

IIcstQucry  ((char  *)0); 

) 


while  (look_more=s=0)  | 

if  (ncsrFetch((char  *)0,  "cursor.outputl"  "db")  !=  0)  { 
IIcsrRet(  1 32,0JlShil ); 

IlcsrRet(  1 ,32,0J[Sdescrl ); 
for  (i=0;i<MAX_PATH+l;i++)  | 
if  (ISfiil[i]=32)  ( 
file_naine[i]=K); 

I 

else  ( 

file_name[i]=ISfiil  [i] ; 

I 

) 

printf("VnRecord  no  %d  filename  :%s:"  j+1,  ISfiil); 
if  ((img_file=fopen(file_name,"r"))=NULL) 

I 

printf(’Ni%s",  file.name); 


printf("VnThe  file  cannot  be  opened  !!Nn"); 
putchar(’V007’); 

) 

else  { 

pr=pr_load(inigL.file,  &cm); 
if  (pis==NULL)  ( 

printf("VnThe  file  does  not  contain  proper  image"); 
putchar(’V007’); 

) 

else  ( 

printf("VnShow  image 
piesent_photo(j+l  ,pr,&cm,ISdescrI ); 
IIcsiClose((char  *)0, "cursor  outputl","db"); 

) 


I 

fclose(img_file); 

) 

ncsrEFetch((char  ♦)0); 

j++; 

if(j=c)  I 
look_more  =  1; 

I; 


) 

/*IIcsrClosc((char  ♦)0, "cursor  outputl","db”);*/ 

) 

) 

^fii**^i0%000*0^i00**%0^00itim*0****^m**tii)Hi*m****0*#*>>‘****m***#***$‘i^**0**l 

This  procedure  search  through  the  media  relation  and  get  the 
file  name  that  match  with  the  result  table  and  send  to  the 
play  sound  procedure 

^4i4i4)4i4t4i4i4i4i4i4>4>4i4i4i4i4i4i4i4i4><l'4i4i4'4'4i4i4i4i4'4i4i4i4>4i4'4i4i4i4i<ti4i4i4i4'i(i4>4i4>**4>4<4i4»li<t'4i4i*<l>4i4<4'4>^ 


display_sound  (soundno,tupleno,ten^_table,  sound.id) 

int  soundno; 

int  tupleno; 

char  temp_tabie[20J; 

int  sound_id; 

I 


char  sound_value[20]; 
int  desired_tupleno; 

char  Answer.answer,  repeat,  yes_no_answer(); 
char  queiyj)hrase[DESCRLEN+l], 
in_phrase[DESCRLEN+ 1  ] ; 

int  issO js=0,  k,  c,  pid,  queiy_err,  query_len,  in_len,  f_flagj[ook_more=0; 
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int  show_pid,  wait_pid; 
int  ISeiTor; 

S'ni_path  file.name; 

char  ISfhl[HLENAMELEN+l]; 

char  ISdescrl[DESaiLEN+l]; 

desired_tupleno=tupieno; 

c=l; 

inttostr(sound_id,  sound_value); 

if  (IIcsrOpen((char  *)0,’’cursor_outputl","db4",0^edia_nanne)  !=  0)  { 
IIwritcdb("retrieve(ISfiil="); 
nwritedb(nie<iia_naine); 

IIwritedb("."); 

IIwritedb("f_id4Sdescrl="); 

llwritedb(inedia_nanie): 

IIwritcdb("  .descip" ); 
llwritcdb(")where  "); 
nwritedb(itiedia_naine); 
nwritedb(".s_id="); 
nwritedb(sound_value); 
ncsiQueiy  ((char  *)0); 

)  /*  ncsropen  */ 
while  (look^morcssisO)  { 

if  (ncsrFetch((char  *)0,  "cursor_outputr’,”db4")  1=  0)  | 
ncsiRet(l  ,32,0J[Sfnl): 
ncs]Ret(  1 ,32,0  JlSdescr  1 ); 
for  (i=0;i<MAX_PATH+l;i++)  ( 
if  (ISfiil(i]*=32)  I 
fUe_nanie[i]sO; 

I 

ebe  ( 

file_naiiie[i]=ISfiil  [i]; 

I 

) 

priiitf("SnRecoid  no  %d  "J+1); 
printf("VnPlay  the  sound  7  (y/n) ::  "); 

if  (ycs_no_answer(>*=’y’)l 

play_sound(file_name); 

ncsi<Ilose((char  *  )0,"cursor_output  1 "  ,"db4" ); 

I 

ncsrEFetch((char  *>0); 
j++; 

if  (j=sc)  ( 
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look_more  =  1; 

} 

)  /*  nCSRFECCH  */ 
)  /♦  end  while  */ 


)  I*  end  of  display_sound  ()  */ 

^4i4i4t4i4i4i4i4>4i4>4i**4>4><|i4i4i*4i4>*<ti*4<4>4i4i>k4<4t)tt4i4i<lKk4>4'4i4>*4i«4i4i4<4>4i4i4>*4t4i*ihi|<)ti4i4i4i*4i4c4>4i4>^ 

This  procedure  get  the  query  description  for  the  media  attribute 
from  the  user  phrase  by  phrase 

^m********m*********ir*********n‘*************************t‘**********i 
char  process  icon() 

I 


char  answer,  repeat,  yes_no_answer  (); 
char  query_phrase[DESCRLEN+l], 
in j>hrase[DESCRLEN+ 1  ] ; 
int  i,  qucry_crr,  query_len,  in_len,  f_flag; 
char  descr[DESCRLEN-fl]; 
int  show_j)id,  wait_pid; 
int  imageno; 
icond  =  1; 
do 


query_err  *  0; 
queryjen  =  0; 
query_(rfirase[0]  =  N3’; 

printfC’VnPlease  enter  your  query  description\n\ 
noun  phrases  separate  by  commas  and  end  whh  an  exclamation  madcNnX 
*  sentence  end  with  a  period>n\ 

(end  whole  description  with  an  empty  line):\i"); 
do  I*  until  queiy_phrase  input  */ 

I 

i  =  0; 

while  ( (in_phrase[i-H-]  =  getchai<))  1=  ^n’  &&  i  <  127  ); 
if  ( in_phrase[i-l]  1=  Ni’  ) 

I 

in_phrase[i-l]  =  V; 

printf  ("The  i^ase  is  too  long,  it  will  be  shortenedSn"); 
while  (  getchar  ()  !=  "sn’  ); 

)  /•End  if*/ 
in_phrase[il  =  ’NO’; 
if  ( (  in_len  =  i  )  >  1  ) 

I 

if  (  queiyjen  +  injcn  <  DESCRLEN  ) 
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{ 

strcat(query_phrase,in_phrase); 
query_len  =  queiy_len  +  in_lcn; 

)  /*  End  if  */ 
else 
{ 

prmtf(**The  last  phrase  extended  beyond  the  maximum  \ 
description  length,\nit  will  be  ignored^"); 
break; 

)  /*  End  else  ♦/ 

}  /*Endif*/ 
if  (  !query_len  ) 

printf(”\nAn  empty  string  is  not  allowed  as  a  query  description.Vn\ 
Please  type  at  least  a  single  word:\n”); 

)  /*  End  do  */ 

while  ( ( in_len  >  1  )  II  !query_len  );  /*  end  query_phrase  input  */ 
printf("The  query  deaeration  now  is:Nn»%s«!Sn\n",query_phrase); 

)  while  (queiy_err); 
strcpy(con[numcon]  ,query_phrase); 
if  (contype[numcon]=l)  ( 
process_icon2  (queiy_irfitase4iumcon); 

I 

if  (contype[numcon]»2)  ( 
proccss_ic<m3  (quety_phrase^umcon); 

) 


I 


This  procedure  handles  if  there  are  more  than  one  conditions  in  the  query. 

nested_gcondition(choice,tenq>_tablel,ten:q)jtable2,temp_table) 

char  choice; 

char  temp_tablel[20]; 

char  temp_table2[20]; 

char  temp_table[20]; 

{ 


int  group_number=0; 
int  nested_counter=0; 
int  k4; 

int  endgroup44nore,found=FALSE; 
char  ans,ans2; 
endgroup  =  0; 
more  =  0; 
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nuincon=0; 

numgroup=K); 

choice=utility_menu(choice,teinp_table  1  ,teinp_table2,temp_table); 

if  (choice=’0’){ 
cond=l; 
gcond=0; 

) 

while  (more  !=  1)  { 
while  (endgroup  !=  1)  | 
for  (i=K);i  <  att_index;i++) 

{ 

if  (choice=’0’)| 
if  (m  >  1  )  I 

printf('>aEnter  table  name  "); 
gets(tab[numcon]); 

strcpy  (table_atTay[table_index].table_name,  tab[numcon]); 
I 
I 

if  (m=l)  ( 

strcpy  (tab[niimcon],  stab[0].t_iuime); 

I 

if  (choice=’0’)| 
cond=l, 
gcond=K); 

piintf("NnEnter  attribute  "); 
gets(att[nuincon]); 

getatttype(tab[numcon],  att[numcon],atttype[numcon]); 
if  (strcmp(atttype[numcon],"image")=0) 

I 

contype[nuincon]s:  1 ; 
ptoce5S_icon(); 

) 

else  if  (strcii^atttype[numcon],"sound")=0) 

I 

contype[numcon]=2; 

process_icon(); 

) 

else  I 

printf("Enter  the  condition  >n"); 
gets(con[numcon] ); 
contype  [numcon]=0; 
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} 

)/♦end  if  choice=0  */ 

nested_counten=nested_counter+l; 
if  ((ncsted_countcr%2>=l)| 
if  (choice=’0’){ 
cond=l; 
gcond=0; 

ql_ietrieve(tenip_table8); 

/*  (^_printdata(tcmp_tablc8);*/ 

cond=0; 
numcon=0; 
numgroup=0; 
init_baffer(tab,  10); 
init_buffcr(att,10); 
for  (k=0;  k<10;  k++)| 
for  (1=0;  KlOO; !++)( 
c<»MDl=’0*; 

I 

} 

I 

if  (choicc=’r)| 

teinpl_exists_tcntqp2(teiiq)_tablel,  teinp_table2,  tenip_table8); 

ql_printdata(tenip_table8); 

init  buffer(join  for_nested,99); 

) 

if  (choicc=’2’)( 

teinpl_not_c3ust5_ieinp2(tcinp_tablcl,  tcinp_tablc2,  teinp_table8); 

ql_|>iintdata(tenq)_table8); 

iiiit_buffer(join_fbr_iiestcd,99); 

I 

if  (choice=’3’)l 

teiiipl_in_tei]:q)2(ten:q>_tablel,  teiiq)_table2,  tcnq>_table8); 
ql_|>rintdata(tetiq>_table8); 
init_buffer(coiiditionLfor_iiested,  1 00); 
init_baffer(attributc_for_nestcd,20); 

I 

if  (choice=’4’){ 

tenipl_not_in_tenip2(temp_tablel,  tenq>_table2,  tenip_table8); 
ql_printdata(temp_table8); 
iiiit_buffer(condition_for_nested,  1 00); 
init_buffer(attribute_for_nested,20); 
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) 

}/♦  end  if  ncsted_counter%2=l  */ 


if  ((ncsted_counter%2)=0)| 
if  (choice=’0’)t 
cond=l; 
gcond=0; 

ql_rctrieve(temp_table9); 
ql_printdata(temp_table9);'*'/ 
cond=0; 
numcon=0; 
numgroup=0: 
init_buffer(tab,  1 0); 
init_buffer(att,10); 
for  (ks=0;  k<10;  k++){ 
for  (1=0;  KlOO; !++){ 
con(k]D]=’0’; 

I 

I 

I 

if  (choicc=’l’)| 

templ_cxists_temp2(temp_tablcl,  temp_table2,  tcn)p_tablc9); 

ql_printdata(tcnip_table9); 

init_bu£fcr(join_for  nested, 99); 

) 

if  (choice=5’2’)l 

templ_not_exists_temp2(tenip_tablel,  tenip_table2,  temp_table9); 

ql_printdata(tenq)_table9); 

init_baffer(join  for_nested,99); 

I 

if  (choice==’3’)| 

tenq)l_in_tenq)2(ten3p_tablel,  tenq>_table2,  temp_table9); 
(^_pnntdata(tenq)_tabie9); 
init_bu£fer(condition_for_nested,100); 
init_buffer(attributc_for_nested,20); 

) 

if  (choice=’4’){ 

tenipl_not_in_temp2(temp_iablel,  temp_table2,  temp_table9); 
qljprintdata(temp_table9); 
init_buffer(condition_for_i»sted,  100); 
init_buffer(attributc_for_nested,20); 

) 
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)!*  end  if  nested_counter%2s==0  *! 


if  (nested_counter=2)| 

/•  printf("^clow  is  the  result  of  the  first  %d  conditions  in  group  %d 

nested.counter,  group_number+l);*/ 

t*  printf("\nBefote  intersection..jrested_counter->%d"^sted_counter);*/ 

intersect_tables(ten^_table8,ten^_table9,tenq>_tablel0); 

/*  ql_printdata(tenip_tablelO);*/ 

drop_table(temp_table8); 
drop  table(tenqj_table9); 

) 

if  (nested_counter>2)( 
if  ((nested_counter%2)=l){ 

/*  piintf("\nBelow  is  the  result  of  the  first  %d  conditions  in  group  %d 

nested_countcr,  group_number+l);*/ 

I*  printf('^aBefore  intersection. ..nested_counter->%d"^sted_counter);*/ 

intersect_tables(tenq>_tablel0,tenq>_table8,temp_tablell); 

/*  ql_printdata(ienq)_tablell);*/ 

drop_table(tenq>_table8); 
drop_table(ten:q)_tablelO); 

I 

if  ((nested_counter%2)=50){ 

I*  printfCNiBelow  is  the  result  of  the  first  %d  conditions  in  group  %d 

nested_counter,  group_numbcr+l);*/ 

/*  printf["VaBefote  intetsection..jiested_counter->%d"4iested_counter);*/ 

intersect_tables(teiiip_tablell,teinp_table9,teinp_tablel0); 

/*  ql_printdata(teiiq]LtablelO);*/ 

drop_tabie(teinp_table  11); 
dr<^  table(ten^  table9); 

I 

)/*  end  if  nested_counter>2  ♦/ 

/*  )*/  /*  end  if  ’r<=choicc»<’4’  — -deneme - ♦/ 


printf('*NnEnd  group  ?"); 
ans=yes_no_answer(); 
if  ((anss=121)ll(ans=89))  ( 
group_numbeFsgroup_number'('  1 ; 

if  (group_nuinbcr=l)| 
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if  (nested_counter=l)( 
union_tables_for_nested(teir^_table8,  group  1 ); 

/♦  printf("VnBelow  is  the  result  of  group  %d  :",group_number); 

ql^rintdata(group  1  );*/ 

^op_table(temp_table8); 

I 

if  (nested_counter>l){ 
if  ((iiested_counter%2>=0)| 
union_tables_for_nested(tenq)_table  1 0,  group  1 ); 

I*  printf('\tBelow  is  the  result  of  group  %d  :",group_number); 

ql_printdata(gioupl  );*/ 
drop_table(teinp_table  1 0); 

I 

if  ((nested_counter%2>=l){ 
union_tables_for_nested(ten^_table  1 1 ,  groupl ); 
r  piintf('ViBelow  is  the  result  of  group  %d  :'',group_number); 

ql_prinfdata(groupl  );*/ 
drop_table(teinp_tablel  1 ); 

) 

)/*  end  if  nested_counter  >  1  */ 

|/*end  if  group_numbei:=l  */ 

if  (group_number5»2){ 
if  (nested_countei«l){ 
union_tables_for_nested(temp_tablc8 ,  gToup2); 

I*  printfC^iBelow  is  the  result  of  group  %d  :",group_number); 

ql_printdata(group2);*/ 
diop_table(ten:q)_table8); 

I 

if  (nested_counter>l)| 
if  ((iiested_counter%2)=0)( 
union_tables_for_nested(teiiip_table  10,  group2); 
t*  piintf('NiBelow  is  the  result  of  group  %d  :",group_number); 

ql_printdata(group2);*/ 
drop_table(temp_table  10); 

) 

if  ((nested_counter%2)==l){ 
uiiion_tables_for_nested(teiTq)_tablel  1,  group2); 
f*  printf("VnBelow  is  the  result  of  group  %d  :",group_nuinber); 

ql_printdata(group2);*/ 
drop_table(temp_tablel  1 ); 

I 

)/*  end  if  nested_counter>l  */ 
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uiuon_tables(groupl,  group2); 

/*  printf("VnBclow  is  the  result  of  the  first  %d  groups  ",group_number); 

^.printdataCgroupZ);*/ 
drop_table(groupl ); 

)/*end  if  group_nuinbeis=2  ♦/ 

if  (group_numbei>2)( 
if  (nestedLcounter=l){ 
union_tables_for_iiested(temp_table8,  groupl ); 

/*  printf(’\iBelow  is  the  result  of  group  %d  :",group_number); 

ql_priiitdata(groupl  );♦/ 
drop_table(tcinp_table8); 

) 

if  (nested_counter>l)| 
if  ((iiested_counter%2)=0)( 
uiiion_tablcs_for_nested(teiip_table  10,  groupl ); 

/*  printfCNiBelow  is  the  result  of  group  %d  :",group_number); 

ql_printdata(group  1  );*/ 
drop_table(teinp_tablelO); 

} 

if  ((nested_counter%2)==l){ 
union_tables_for_nested(teiT^_table  1 1 ,  group  1 ); 

I*  printfC^iBelow  is  the  result  of  group  %d  ;",group_number); 

ql_printdata(groupl );  V 
drop  tableCten^.tablell); 

I 

)/*  end  if  ne8ted_countei>l  */ 
unioft_tables(groupl  ,group2); 

/*  printfCNiBelow  is  the  result  of  the  first  %d  groups  ",group_number); 

ql _printdata(groap2);  V 
drop_table(groupl ); 

)/*  end  if  groiq>_number  >2*1 

nested.counter^, 

endgroupsl; 

t*  printf("\nOioup  9W",numgroup); 
printf("VnCondition  %d",numcon);*/ 
i=600; 

}/*  end  if  ans=  YES  to  end  group  7  */ 
if  ((ans=110)ll(ans5=78))  | 

dioic6sutility_menu(choice,ten^_tablel,tenip_tabie2,temp_table); 

) 

I  /*  End  for  */ 

I  I*  END  WHILE  */ 
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prinrf("NnEnd  condition  ?"); 
ans=yes_no_answer(); 
if  ((ans=121)ll(ans==89)) 

I 

if  (group_number==:l)| 
union_tables_for_nested(groupl ,  temp_table); 
drop_table(group  1 ); 
printf("\nBelow  is  the  final  result 
ql_jprintdata(temp  table); 

} 

if  (group_number>l)( 

union_tables_for_nested(group2,  teinp_table); 
drop_table(group2); 
printf("VnBelow  is  the  final  result 
ql_printdata(temp_table); 

I 

/*  if  (choice=’0’) 

group_count[numgroup].endgroup  =  numcon-1;*/ 
endgroup=l; 
more  =  1; 
i=0; 

)/*  if  ans=YES  to  end  condition?  */ 
else  ( 
moie=0; 
endgroup=0; 
i=0; 

nested_countei^; 

choice=utility_nienu(choice,temp_table  1  ,tenip_table2,temp_table); 
f*  group_count[numgroop].endgroup  «  numcon-1; 
numgroup=numgroup4- 1 ; 
group_count(numgroup].begingroup=munKon;*/ 

)/*end  else*/ 


)  /*  End  mote  ♦/ 
group_numbeF=0; 

) 

^*4'4t4>4i*4i***4t4t*4i4>****4i4t****4>************4i4t*******4t*****4i4i4>4i4r*4t4i**4<*4<4i 

This  function  handles  if  there  is  only  one  condition  in  the  queiy. 

****t,>ti****iH***0****************************v^***********************^ 

ncsted_processcondition(choice,ten:q)_table  1  ,tenqj_table2,temp_table) 

char  choice; 

char  temp_tablel[20]; 


char  teinp_table2[20]; 
char  temp_table[20J; 

I 

char  ans2,a; 
int  ij; 
gcond=0; 

printf("\nGroup  condition  ?  (yAi)  "); 

ans2=yes_no_answer(); 

if  ((ans2=121)ll(ans2=89)) 

I 

nestcd_gcondition(choice,ten^_tablel,temp_tabIe2,teny_table); 

I 

else 

{ 

gcondsO; 

choice*utility_menu(choice  ,tenip_tablc  1  ,tenq>_table2,tenip_table); 
if  (choice  =  ’0’){ 
cond=l; 
if  (m  >  I  )  ( 

printf('>nEnter  table  name  "); 
gets(tab[0]); 

) 

if  (01=1)  ( 

strcpy  (tab(0],  5tab(0].t_nanie); 

I 

printf("\nEnter  attribute  name  ”); 
gcts(att(0]); 

printf("\n%s  %s  %s",  tab[0],  att[0],  atttype[0]); 
getatttype(tab[0]^(0],atttypeC0]); 
if  (strcnq)(atttype[0],"iniage")=0) 

I 

contype[0]=l; 

process.iconO; 

) 

else  if  (stranp(atttype(0],"souikI">=0) 

I 

contype[0]=2; 
process  icon(); 

) 

else  ( 

printf("Enter  the  condition  \n"); 
gets(c(m[0]); 


140 


contype[0]=0; 

) 

I 

else 

cond=0; 

if  (choice=’0’) 
ql_retrieve(temp_table); 
if  (choice=’r) 

templ_exists_temp2(temp_tablel,  temp_table2,  temp_table); 
if  (choices=’2’) 

templ_not_exists_temp2(teinp_tablel,  temp_table2,  temp_tablc); 
if  (choice=’3’) 

templ_in_temp2(temp_tablel,  temp_table2,  temp_table); 
if  (choice=’4’) 

templ_not_in_tenip2(temp_tablel,  temp_table2,  temp_table); 
ql_printdata(temp_table); 

) 


This  procedure  print  the  attribute  name  of  the  table  assign  to 


void  p_att(tab_name) 
STR  name  tab.name; 
I 


int  ij; 

for  (i=0;i<=  table_count;i++)  { 
if  (strcmp(table_aiTay[i].table_namc,tab_name)==0)  { 

X  =  i; 

y  =  table_array[i].att_entry; 

printfCVTable  Name:  %s'^",table_arTay[i].table_name);  f*  print  table  name  */ 
printf('\i**Attribute****Data  Type**"); 
while  (y  !=  -1)  { 

printf("Vn%  1 3s  %s",att_aiTay  [y].att_name,att_array  [y]  .data_type ); 
y  =  att_aiTay[y].next_index; 

I  /*  End  while  y!=-l  */ 
if  (y=-l)  I 

printf("\n"); 


i=500; 


)  /*  Exit  loop  */ 
)  /*  End  if  */ 

)  /*  End  for  */ 
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4<4«i<  4>4i4i«4i4<4<iti«4«t>4>4>4>«**4i4>4i  4I4<4<4<41 O' 


Generate  the  result  table  for  retrieval  process 
This  procedure  process  the  query  and  condition 
By  using  the  select_array  and  condition.array 
also  group_array 


^4<4<4<4<4t4i4<4<4<4<4<4i4<4<4<4<4<4<4<4<4<4<4i4<4t4i4t4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<4<^ 


ql_retrfcve(tenip_table) 
char  tenq>_table[20]; 

I 

int  d,ejr; 
int  i  j4c4; 

char  gmum4nedianum,operator[4]; 
i=0;  /*  set  up  index  to  0  ♦/ 

I*  Below  is  the  embeded  C  code  for  the  SQL  C  for  INGRES  */ 
/*  This  is  equivalent  to  the  SQL  query  */ 

/*  exec  sql  select  (varl,  var2,  ...) 
from  (tablel,  table2,...) 

where  (conditionl  and/or  condition2  and/or  ...); 

•/ 

k=0; 

i=0, 

j=0; 

1=0; 

1=0; 


nsqlnit((char  ’"lO); 

nwritedb("retrieve  into  "); 

IIwritedb(temp_table); 

nwiitedb("("); 

for  (i=0;i<n-l;i++)  | 

nwritedb(satt[i]  .t_name); 

OwritedlK"."); 

nwritedb(satt[i].a_name); 

nwritedb(","); 

)  /♦  end  for  ♦/ 
nwritedb(satt[i].t_name); 
nwritedb("."); 
nwritedb(satt[i].a_name); 
nwritedbC’)"); 
if  (cond==0)  I 
if  (in>l)  I 

IIwritedb<"where("); 
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nwritedb(join_condition); 

nwritedbC’)"); 

) 

) 

if  (cond=l)  I 
nwritedb("where("); 
if  (m>l)  I 

Uwritedb("("); 

IIwritedb(join_condition); 

nwritedbC')"); 
nwritedbC'  and  "); 

1 

if  (gcond=0)  { 

if  (contype[0]=K))  { 
nwritedb(tab[0]); 
nwritedbC'."); 
nwritedb(att[0]); 
nwritedb(con[0]); 

I  I*  end  if  *! 
if  (contype[0]=l)  { 
nwritedMtab[0]); 
nwritedbC'."); 
nwritedb<att[0]); 
nwritedb("="); 
temp_niedia_name[0]=’p’; 
niedianuni=0->48; 
teii^_niedia_namc[l]=medianuni; 
tenip_media_namef2]=0; 
nwritedb(temp_niedia_name); 
nwritedbC'."); 
nwritedbC'iJd"); 

I 

if  (contype[0]=2)  ( 
nwritedbC  tab[0]); 
nwritedbC"."); 
nwritedbCatt[0]); 
nwritedbC"*"); 
temp_media_name[0]= 'p  ’ ; 
niedianum=0448 ; 
ten:^_media_name[  1  ]=medianum; 
temp_niedia_name[2]=0; 
nwritedbCtemp_media_name); 
nwritedbC"."); 
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IIwritedb("s_id"); 

) 

)  /*  end  if  no  group  */ 
nwritedbC')"); 


)  /*  end  if  con=l  ♦/ 


f 

This  function  takes  two  temp  tables  and  unions  them  and  returns 
the  result  to  die  calling  function 

*****************************************************************/ 


union_tables(ten^_table  1 ,  temp_tablc) 
char  temp_tidilel[20]; 
char  temp_table[20]; 

I 


int  c=0  j=04c=04=0,temp,  count; 

/♦char*/  STR_name  char_valuc[21]; 
char  file_name[20J,a; 

int  integer_valuc4nedia_value,found4nedifl_value; 
float  real.value; 
int  i=0,select=0; 
int  g=0; 

/*printf('\iNow  we  are  in  union_tables");*/ 

/*  #  line  3169  "db.sc"  ♦/  /*  select  */ 

( 

Ilsqlnit((char  *)0); 

IIwritcdb("retrieve(c=(count("); 
nwtitedb(temp_tablel ); 
nwiitcdb("."); 
nwiitedb(satt[0]  .a.name); 

UwiitedM")))"); 
llsqRinit((char  *)0); 
if  (heiitestO  =  0)  ( 
if  (IlneztgetO  1=  0)  | 

IIietdom(  1 30,4,&c); 

)  /*  nnextget  */ 

IlsqFIush((char  *)0); 

)  f*  Ilerrtest  */ 

I 

1*0; 

/*printf("VnThere  arc  %d  records  in  tcmp_table  %s",c,  tcmp_tablel);*/ 
/•  #  line  3171  "db.sc"  */  /*  host  code  ♦/ 
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if  (IIcsiOpen((char  *)0,"cursor_output","dbl",0,tcmp_tablel)  !=  0)  { 
nwritedb("retrieve("); 
for  (selcct=0;select<n-l;select++)  | 

IIwritcdb(sattlselcct].a_name); 
nwritcdb("="); 
nwritedb(teii^_table  1 ); 
nwritedb("."); 

nwritcdb(satt[selcct].a_name); 

nwritedb(","); 

I 

nwritcdb(satt[selcct]  .a_name ); 

Ilwritcdb("="); 
nwritedb(ten^_table  1 ); 
nwritedbC'."); 

nwritedb(satt[selea].a_naine); 
nwritedbC’)"); 
ncsiQueiy((char  *)0); 

)  /*  HcsrOpen  •/ 

/*  #  line  3169  "db.sc"  */  /*  select  */ 

{ 

nsqlnit((char  ''')0); 
nwritedb("retrieve(g=(count("); 
nwritedb(teinp_table); 
nwritedbC'."); 

Uwritedb(satt[0]  .a_nanie); 
nwritedbC')))"); 

UsqRinit((char  *)0); 
if  (IlerrtestO  =  0)  | 
if  (DnextgetO  !=  0)  ( 
nietdomC  1 ,30,4,&g); 

I 

nsqFlush((char  *)0); 

I 

} 

/♦printfCVnThere  are  %d  records  in  teinp_table  %s",g,  ten:q>_table);*/ 

/*  #  line  3171  "db.sc"  ♦/  /*  host  code  ♦/ 

if  (ncsrOpen((char  *)0,"cursor_output","db2",0,temp_table)  !=  0)  | 
nwritedbC' tctrieveC); 
for  (select=0;select<n-l;select++)  | 
nwritedb(satt[select]  .a.name); 
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nwritedb("="); 

nwritedb(temp_table); 

nwritedbC’."); 

nwritedb(satt[select].a_naine); 

nwritcdM","); 

) 

IIwritedb(satt[select].a_naine); 

nwritedb("="); 

nwritedb(tenjp_table); 

nwritedbC'."); 

nwritedb(satt[select].a_naine); 
nwritedbC’)"); 
ncstQuery((char  ♦)©); 

) 

/*printf("\n");*/ 

look_more=0; 

1=0; 

if  (c=0)  ( 

look_more=l; 

) 

I*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  query,  then  prim  out  the  tuple  one  at  a  time 
until  no  mote  record  to  print  to  the  user  */ 

/*  #  line  7  "insen.sc"  ♦/  /*  insert  ♦/ 

I 

while  (look_more  =  0)  ( 

if  (ncstFetch((char  ♦)0,"cursor_output","dbl")  !=  0)  | 
nsqlnit((char  *)0); 
nwritedbC'append  to  "); 
nwritedb(temp_table); 
nwritedb("("); 

/*  printfC'^nrecord  id  %d  Vj+1);*/ 
for  (i=0;i<n-l;i4-f)  { 
nwritedb(satt[i].a_natne); 
nwritedbC'="); 

if  (strcmp(satt[i].data_type,"c20")=0)  { 

UcsrRetC  132,0,  char.value); 

/*  printf("%s  :  %s",satt[i].a_natne,char_value);*/ 
nsetdom(132,0,  diar.value); 

I 
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if  (strcmp{satt[iI.data_type,"integcr")s=0)  { 

IIcsrRet(  1 ,30,4  ,&integer_value); 

/*  printf("%s  :  %d  ",satt[ij.a_naniejnteger_value);*/ 

llsetdom(  1 ,30,4,&intcger_value); 

I 

if  (strcinp(satt[i].data_type,"float")s=0)  { 

IIcsrRet(  1 ,3 1 ,4,&real_value); 

/*  printf("%s  ;  %8.2f  ",satt[i].a_name,ical_valuc);*/ 

IIsetdom(  1 ,3 1 ,4,&real_value); 

) 

if  (strcmp(satt[i].data_type,"image")=0)  { 
ncsrRet(l  ,30,4,&media_value); 

/*  printf("%s  id  is  %d  ",satt[i}.a_naiiM4nedia_value);*/ 

lIsetdoin(  1 ,30,4,&media_value); 

) 

if  (strcmp(satt[i].data_type,"sound")=0)  ( 

IIcsrRet(  1 30,4,&nicdial_value); 

/*  printf(’'%s  %d",satt[i].a_naine4ncdial_value);*/ 

nsetdom(  1 30,4,&inedial_valae); 

I 

nwritedb(","); 

I 

nwritedb(satt[i]  .a.name); 
llwritedb("="); 

if  (stranp(satt[i].data_type,"c20")=0)  | 
ncsiRet(  1,32,0,  char_value); 

/*  printf("%s  :  %s",satt[i].a_iiame,char_valuc);*/ 

IIsetd<mi(  1,32,0,  chor.value); 

) 

if  (sticiiip(satt[i].data_type,"integer")=ssO)  { 
ncsiRet(  1 ,30,4,&integcr_valuc); 

/*  printf('’%s  :  %d  ",satt[i].a_name4ntcger_value);*/ 

nsetdom(  1 ,30,4,&intcger_value); 

) 

if  (strcmp(satt[i].data_type,"float")=0)  | 

]IcsiRet(  1 ,3 1 ,4,&real_value); 

/*  priiitf("%s  :  %8.2f  ",satt(i].a_name,real_value);*/ 

OsetdonH  1 ,3 1 ,4,&rcal_valuc); 

I 

if  (strcmp(satt[i].data_type,"iinage")=0)  ( 
ncsiRet(  1 ,30,4,&inedia_valuc); 

/*  printf("%s  id  is  %d  ",satt[i].a_naine4iiedia_value);*/ 

nsetdom(  1 ,30,4,&incdia_value); 
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) 

if  (strcmp(satt[i].data_type,"sound")=0)  | 
ncsiRet(l  ,30,4,&inedial_value); 

/*  printf("%s  %d"^att[i].a_naine^dial_value);*/ 

IIsetdom(  1 ,30,4,&inedial_value); 

) 

/*  printf(’V);*/ 

IlcsrEFetch((char  *)0);  /*  fetch  the  next  record  to  the  cursor  ♦/ 

I++;  f*  increment  1  as  the  counter  */ 
if  (l=c)  I  /*  check  if  no  more  data  to  print  */ 
look  mote  =1;  /*  exit  of  the  lo<^  */ 

I 

nwritedbC* )"); 
nsqSync(3,(char  *)0); 

)  /*  IlcsrFetch  */ 

)  /*  end  while  */ 

I 

ncsrClose((char  *)0,"cursor_output","dbl");  /*  close  the  cursor  •/ 
ncsiClose((char  *)0,"cursor_output",”db2");  /*  close  the  cursor  ♦/ 
ietum(ten9_table); 

I 

y»**44i4i4>*4^*4i*4>4t4'4>4>4i4t4t4'4'4r*4r*4'<l'4i*4t4'4>4>*4'4t*4>4i#4>4t4i*4i4>4i4r4i4t4i4t4>4i*4>4i4><>4>*4ii|i* 

This  function  takes  two  tenq>  tables  and  unions  them,  puts  the  result  in 
temp.tablel  and  returns  the  result  to  the  calling  hmction 

union_tables_for_nested(teii^_table  1 ,  tanp_table) 
char  teinp_tablel[20]; 
char  ten^_table[20J; 

\ 


int  c=0  j=03t=0J=0,temp,  count* 

/♦char*/  STR_namc  chv_value[21]; 
char  file_name[20],a; 

int  integer_value4nedia_value,found4nedial_value; 
float  real_value; 
int  i=0,select3K); 
int  g=0; 

/*printf("\nNow  we  are  in  union_tables_for_nested");*/ 
/*  #  line  3169  "db.sc"  */  /*  select  */ 

I 

Ilsqlnit((char  *X)); 
nwtitcdb("retrfeve(c=(count("); 
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IIwritedb(temp_table  1 ); 
nwritcdb("."); 
nwritedb(satt[03  .a_naine); 

nwritedbC’)))"); 

nsqRinit((char  ♦)0); 
if  (IleiTtestO  =  0)  { 
if  (IlnextgetO  !=  0)  { 

IIietdom(  1 ,30,4, &c); 

)  I*  nnextget  */ 
nsqFlush((char  ♦X)); 

)  I*  Ilentest  */ 

) 

1=0; 

/*printf("NnThcrc  are  %d  records  in  temp_table  %s",c,  temp_tablel);*/ 

/*#  line  3171  "db.sc"  */  /*  host  code  */ 

if  (IIcsiOpen((char  *)0,"cursor_output","dbl",0,temp_tablel)  f=  0)  | 
llwritedb("retrieve(" ); 
for  (select=0;select<n-l;select++)  { 
nwritedb(satt[select]  .a_name); 
nwritedb("="); 
n  writedb(ten^_table  1 ); 
nwritedb("."); 

]Iwritedb(satt[select].a_name); 

nwritedbC',"); 

) 

nwritedb(satt[select]  .a.name); 
nwritedb("="); 
nwritedb(tenip_table  1 ); 
nwritedbC'."); 

nwritedb(satt[select]  .a_name); 
nwritedbC’)"); 
ncsiQueiy((char  *)0); 

)  /*  ncsiOpen  ♦/ 

/*&&&&&&&&&&&&&&&&&&&&&&&&«/ 

( 

nsqlnit((char  *)0); 

HwiitedbC’create  "); 
nwritedb(temp_table); 

UwritedbC'C’); 
for  (i=0;i<n-l;i++){ 
nwritedb(satt[i]  .a.name); 
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nwritedb("="); 

if  ((strcinp(satt[i].data_type,  "image")  =  0)  II 

(strciiip(satt[i].data_type,  "sound")  =  0)  II 

(strcmp(satt[i].data_type,  "integer")  =  0)) 

IIwritedb("i4,"); 

else 

if  (sticmp(satt[i].data_type,  "float")  =  0) 
nwritedb("f4,"); 
else 

I  /*  char  data_type  ♦/ 

nwTitedb(satt[i]  .data_type); 
nwritedb(","); 

} 

)  /*  End  of  for  loop  i  */ 
llwritedb(satt[i]  .a.name); 
nwritedb("="); 

if  ((strcnq)(satt[i].data_type,  "image")  =  0)  II 

(strcn^satt[i].data_type,  "sound")  =  0)  II 
(strcmp(satt[i].data_type,  "integer")  =  0)) 
nwritedb("i4"); 
else 

if  (strcmp(satt[i].data_type,  "float")  =  0) 

Uwritedb("f4"); 

else 

(  /*  diar  data.type  */ 

IIwritedb(satt[i].data  type); 

) 

DwiitedbC')"); 
llsqSync(0,(char  *)0); 

I 

/*  #  line  3169  "db.sc"  */  /*  select  */ 

I 

Ilsqlnit((char  *)0); 
llwritedb("retrieve(g=(count(" ); 

IIwritedb(temp_table); 
nwritedb(".");  ~ 
llwtitedb(satt[0].a_nanie); 
nwritedb(")))"); 

IIsqRinit((char  *)0); 
if  (IIeiTtest()  as*  0)  | 
if  (IlnextgetO  !=  0)  | 
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lIietdotn(  1 ,30,4,&g); 

) 

IIsqFlush((char  *)0); 

) 

I 


/*#  line  3171  "db.sc"  */  /*  host  code  ♦/ 

if  (IlcsrOpen((char  ♦)0,"cursor_output","db2",0,temp_table)  1=  0)  | 
nwritedb("retrievc("); 
for  (select=0;select<n-l;select++)  | 
nwritedb<satt[select].a_name); 
nwritedb(":="); 
nwritedb(teiTq>_table); 
nwritedbC’."); 

nwritedb(satt[select].a_name); 

nwritedb(","); 

) 

nwritedb(satt[select]  .a.name); 
nwritedb("="); 
nwritedb(teii^_table); 
nwritedb("."); 

n  writedb(satt[select]  .a_name); 
nwritedb(")"); 
ncsiQueiy((char  *)0); 

) 

/•primfCNi");*/ 

look.moresO; 

1*0; 

if  (c==0)  I 

look  more=l; 

I 

/*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  query,  then  print  out  the  tuple  one  at  a  time 
until  no  more  record  to  print  to  the  user  */ 

/*  #  line  7  "insert.sc"  ♦/  /*  insert  */ 

{ 

while  (look_more  =  0)  | 

if  (IIcsrFetch((char  ♦)0,"cursor_output","dbr)  !=  0)  { 
Ilsqlnit((char  ''')0); 


IIwntedb("append  to  "); 

nwritedb(ten^_table); 

nwritedb("("); 

for  (i=0;i<n-l;i++)  | 
nwTitedb(satt[i].a_naine); 
nwritcdb("="); 

if  (strcinp(satt[i].data_type,"c20'’)=0)  | 
ncsrRet(  1,32,0,  char_value); 
llsetdom(  1,32,0,  char_value); 

I 

if  (strcmp(satt[i],data_type,"integer'’)=0)  | 
UcsrReU  1 ,30,4,&integer_value); 
nsetdoin(  1 ,30,4,&integer_value); 

) 

if  (strcmp(satt[i].data_type,"float'’)s=0)  | 
IIcsrRet(  131 ,4,Areal_value); 
lIaetdofn(  131 ,4,&real_valae); 

I 

if  (strcinp(satt[i].data_type,"image")=0)  { 
ncsrRet(  1 ,30,4,&niedia_value); 

IIsetdom(  1 30,4,&fnedia_value): 

I 

if  (strcmp(satt[i].data_type,"sound")=0)  j 
lIcsrRet(  1 ,30,4,&niedia  l.value); 
Usetdom(  1 ,30,4,&inedial_value); 

I 

nwritedb(","); 

I 

IIwTitedb(san[i].a_naine); 

DwritedlK"*"); 

if  (sticn^satt[i].data_type,''c20'')sB0)  | 
IIcsrilet(  1,32,0,  char.value); 

IlsetdoinC  1,32,0,  char_value); 

I 

if  (sticinp(satt[i].data_type,"integer")assO)  | 
ncsrRet(l  ,30,4,&integer_value); 
nsetdoin(l,30,4,&integer  value); 

) 

if  (strcinp(satt(i].data_typc,"float")=0)  { 
ncsrRet(  1 ,3 1 ,4,&real_value); 

IIsetdom(  1 ,3 1 ,4,&ieal_value); 

I 

if  (strcmp(satt[i].data_type,”iinage”)=0)  ( 
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ncsiRet(  1 ,30,4,&media_value); 
nsetdom(  1 ,30,4,&media_value); 

) 

if  (8ticinp(satt[i].data_type,"sound'')=0)  { 
ncstRet(  1 ,30,4,&iiicdial_value); 
llsetdom(  1 ,30,4,&inedial_value); 

I 


/*  printf(‘V’);*/ 

ncsrEFetch((char  *)0);  /*  fetch  the  next  record  to  the  cursor  */ 
1++;  f*  increment  I  as  the  counter  ♦/ 
if  (l=c)  I  /♦  check  if  no  more  data  to  print  */ 
look_more  =1;  /•  exit  of  the  loop  */ 

I 

nwritedb("  )"); 

UsqSync(3,(char  *)0); 

)  /*  UcsrFetch  */ 

)  /*  end  while  */ 


I 


IIcsiClose((char  *)0,"cursor_output’‘,"dbr’);  /*  close  the  cursor  ♦/ 
ncsiClose((char  *)0,”cursor_output","db2");  /*  close  the  cursor  ♦/ 
ietum(temp_table); 


I 

This  function  takes  two  temp  tables  and  unions  them,  puts  the  result  in  tenq>_table 
and  returns  the  result  to  the  calling  function 


union_tables_for_dcmo(tcmp_tablcl,  temp_table2,  ten^.table) 
char  temp_table  1  [20J ; 
char  ten:q)_table2[20]; 
char  temp_table[20]; 


I 


int  c=0  j=03t=0d=0,tcmp,  count; 
int  0=0, p=0; 

/*char*/  STR_naine  char_value[21]; 
char  file_naine[20J,a; 

int  integer_value4nedia_value,found,medial_value; 
float  real_value; 
int  i=0,sclect=0; 
int  g=0; 

/*printf("NnNow  we  are  in  union_tables_for_iKsted");*/ 
/*  #  line  3169  "db.sc"  ♦/  /*  select  •/ 
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( 

IIs(^it((char  ♦)0); 
nwritedb("retrieve(c=(count(”); 

IIwritedb(ten^_tablcl ); 
nwritcdb("."); 

llwritedb(satt[0].a_name); 

nwritedb(")))"); 

IlsqRinit((char  *)0); 
if  (hemestO  =  0)  { 
if  (llnextgetO  !=  0)  | 

IIretdom(  1 ,30,4,&c); 

)  /’"  Ilnextget  */ 
nsqFlush((char  *)0); 

)  /*  IleiTtest  */ 

) 

1=K); 

/*printf(’\iTherc  are  %d  records  in  temp_table  %s",c,  teinp_tablel);*/ 

/*  #  line  3171  "db-sc"  */  /*  host  code  */ 

if  (IIcstOpen((char  *)0,"cursor_output","dbl",0,temp_tablel)  !=  0)  ( 
nwritedb(''retrieve('’); 
for  (selecta=0;select<n>l;select-H-)  { 
nwritedb<satt[select]  .a.name); 
nwritedb(’’="); 

IIwritedb(ten^_table  1 ); 
nwritcdbf"."); 

nwritedb($att[select]  .a.name); 
nwritedbC',"); 

) 

nwritedb($att[select].a_nanie); 

nwritcdb("="); 

IIwritedb(tenip_table  1 ); 

IIwritedb("."); 

nwritedb(satt[select].a_name); 
nwritedbC’)"); 
ncsiQueiy((char  *)0); 

)  /*  HcsiOpen  */ 

/*#  line  3169  "db.sc"  ♦/  /*  select  ♦/ 

{ 

nsqlnit((char  ''')0); 

nwritedb("retricvc(o=(count("); 

nwritedb(tcmp_table2); 

IlwritcdbC’."); 
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Ilwritedb(satt[0]  .a_naine); 

IlwritedbC')))"); 
nsqRlnit((char  *)0); 
if  (IleiTtestO  =  0)  | 
if  (IlnextgetO  !=  0)  | 

ELretdomC  1 ,30,4,&o); 

)  /♦  Ilnextget  ♦/ 
nsqRush((char  *)0); 

)  /*  Ilentest  */ 

) 

1=0; 

/*printf('\iThere  arc  %d  records  in  tenip_table  %s",o,  tenip_tablel);*/ 

/*#  line  3171  "db-sc"  */  /*  host  code  */ 

if  (lIcsrC)pen((char  *)0,"cursor_output","db3”,0,temp_table2)  !=  0)  { 
nwritedb("rctrieve(" ); 
for  (select=0;sclect<n-l;select++)  { 

IIwritedb(satt[select].a_naine); 

nwritedb("="); 

nwritedb{ten:q)_table2); 

nwritedbC’."); 

IIwritedb(satt[select]  .a_name); 
nwritedb<","); 

I 

nwritedb(satt[select].a_nanie); 

nwritedb("="); 

IIwritcdb(tenq>_tablc2); 

IlwritedbC’."); 

IIwritedb(satt[select].a_name); 
nwritedbC’)"); 
ncsrQueiy((char  ♦)0); 

)  /*  HcsiOpen  ♦/ 

{ 

nsqlnit((char  *)0); 

Uwritedb(’’crcate  ’’); 

Uwritedb(temp_table); 
nwritedb(’’(’’); 
for  (i=0;i<n-l;i++)| 
nwritedb(satt[i]  .a_name); 
nwritedb(’’=’'); 

if  ((strcmp<satt[i].data_type,  "image")  ==  0)  II 
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(strcmp(satt[i].data_type,  "sound")  =  0)  II 

(strcmp(satt[i].data_type,  "integer")  =  0)) 
nwritedb("i4,”);  ^ 

else 

if  (strcmp(sattri].data_type,  "float")  =  0) 
nwritedb("f4,"); 
else 

(  /♦  char  data_type  */ 

nwritedb(san[i]  .data_typ-e); 
nwritedb(","); 

} 

)  I*  End  of  for  loop  i  */ 
nwiitedb(satt[i]  .a_name); 
nwritedb("="); 

if  ((strcmp(satt[i].data_type,  "image")  =  0)  II 

(strcmp(satt[i].data_type,  "sound")  =  0)  II 
(strcmp(satt[il.data_type.  "integer")  =  0)) 
nwritedb("i4"); 
else 

if  (strcmp(satt[i].data_type,  "float")  —  0) 
nwritedb("f4"); 
else 

(  /*  char  data_type  */ 

IIwritedb(satt[i].data_type); 

) 

nwiitedb(")"); 
llsqSync(0,(char  *)0); 

I 

/*#  line  3169  "db.sc"  •/  /*  select  */ 

I 

IIsqlnit((char  *)0); 

Ilwritcdb("retrieve(g=(count("); 

Ilwritedb(tcmp_tablc); 
nwritedb("."); 
nwritedb(satt[0]  .a_name ); 
nwritedbC’)))"); 

IlsqRinit((char  ♦)0); 
if  (IlerrtestO  =  0)  { 
if  (IlnextgetO  !=  0)  | 
llietdom(  1 ,30,4,&g); 

) 
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nsqFlush((char  *)0); 

) 

) 


/♦#  line  3171  "db.sc"  ♦/  /*  host  code  •/ 

if  (lIcsiOpen((char  *)0,”cursor_output","db2",0,te*np_taWe)  !=  0)  { 
nwritedb("ietrieve(" ); 
for  (select=0;select<n-l;select++)  ( 

IIwritedb(satt[select]  .a_name); 
nwritedb("="); 

Ilwritedb(tenip_table); 

nwritedb("."); 

nwritedb(satt[select].a_naine); 

nwritedbC’,”); 

I 

nwritedb(satt[select]  .a.name); 
nwritedb("="); 

IIwritedb(tenip_table); 

nwritedbC'.”); 

nwritedb(satt[select].a_name); 
nwritedbC’)"); 
ncsiQueiy((char  ♦)0); 

) 

/•printfCVn");*/ 

look_more=s0; 

1=0; 

if  (c=0)  I 

look_more=l; 

) 


I*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  queiy,  then  print  out  the  tuple  one  at  a  time 
until  no  more  record  to  print  to  the  user  */ 

/•  #  line  7  "insert.sc"  •/  (*  insert  */ 

I 

while  (look_more  =  0)  | 

if  (ncsrFetch((char  *)0,"cursor_output","dbr')  !=  0)  | 
nsqlnit((char  *)0); 
nwritedbC'append  to  "); 

Uwritedb(temp_table); 
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IIwritedb("("); 
for  (i=0;i<n-l;i++)  I 
nwritedb(satt[i].a_name); 

nwritcdbC'ss"); 

if  (strciTip(satt[i].data_type,"c20")=0)  { 

IIcsrRet(l,32,0.  char_value); 
IIsctdom(l,32,0,  char_value); 

if  (strcmp(satt(i].data_type,'’integcr”)====0)  { 

IIcsrRet(  1 ,30,4,&integer_value); 
IIsetdoin(  1 30,4,&integer_valuc); 

if  (strcmp(satt(i].data_type,''float")==0)  { 

UcsrRet(  1 .3 1 ,4,&real_value); 

IlsetdomC  1 ,3 1 

if  (strcinp(satt(i].data_t3^,"iniage")==0)  ( 

ncsrRet(  1 ,30.4,&media_value); 

IIsetdofn(  1 ,30,4,&mcdia_value); 

if  (strcinp(satt[i].daia_type,"sound”)=0)  { 

IlcsrRet(  1 ,30,4,&inedial_value); 
nsctdom(l,30,4,&niedial_valuc); 

I 

nwritcdbC',”); 

1 

IIwritedb(satt[i].a_iiame); 

Ilwritcdb("=’'); 

if  (strcinp(satt[i].data_type,"c20")==0)  { 

ncsrilet(l,32,0,  char_value); 

IIsetdoin(  1,32,0,  char.value); 

if  (strcinp(satt[i].data_type,"integer")=0)  ( 

ncsiRet(  1 ,30,4,&integer_valuc); 

IIsetdom(  1 ,30,4,&integcr_value); 

if  (strcinp(satt[il.data_type,"float")=0)  | 

ncsrRet(  1 ,3 1 ,4,&real_value); 
nsetdom(  1 .3 1 ,4,&real_value); 

if  (strcinp(sa!t[i],data_type,"imagc’’)====0)  | 

ncsrRet(  1 ,30,4,&niedia_valuc); 
nsetdoin(  1 ,30,4,&media_valuc); 
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I 

if  (strcmp(satt[i].data_type,"sound")=0)  J 
ncsrRet(  1 ,30,4,&medial_value); 
nsetdom(  1 ,30,4,&inedial_value); 

I 

/*  printf("Nn");*/ 

IlcsrEFetch((char  ♦)0);  /*  fetch  the  next  record  to  the  cursor  */ 
1++;  /♦  increment  1  as  the  counter  */ 

if  (l=c)  (  /*  check  if  no  more  data  to  print  */ 

look_more  =1;  /*  exit  of  the  loop  ♦/ 

) 

IlwritedbC  )"); 

IIsqSync(3,(char  *)0); 

)  /*  llcsrFetch  */ 

)  /*  end  while  */ 

I 

IIcsiClose((char  ''')0,''cursor_output","db2");  /*  close  the  cursor  */ 


/*  #  line  3171  "db.sc"  */  /*  host  code  ♦/ 

if  (IIcsrOpen((char  •)0,"cursor_output'*,"db2",0,teinp_table)  1=  0)  | 
IIwritcdb(”ietrieve("); 
for  (select=0;select<n-l;select-H-)  { 
nwritedb(satt[select]  .a_name); 
nwritcdb("="); 

IIwritedb(teiT5)_table); 

nwritedb("."); 

nwritedb(satt[select] .  a_name); 
nwritedb(”,"); 

I 

IIwritedb<satt(select].a_name); 

nwritedb("="); 

IIwritedb(tenq>_table); 

nwritedb("."); 

IIwritedb(satt[select].a_name); 

nwritedb(")"); 

IIcsiQuery((char  *)0); 

I 


/*printf("Vn");*/ 

look_more=0; 

1=0; 
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if  (c=0)  { 

look_more=l; 

} 

I*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  query,  then  print  out  the  tuple  one  at  a  time 
until  no  more  record  to  print  to  the  user  *! 

/*  #  line  7  "insert.sc"  */  /♦  insert  */ 

I 

while  (look_more  =  0)  ( 

if  (ncsrFetch((char  *)0,"cursor_ouqjut","db3")  !=  0)  { 
llsqlnit((char  "'lO); 
nwritedb("append  to  "); 
lIwritedb(tenipLtable); 

DwritedbCX”); 
for  (i=0;i<n-l;i-H-)  | 

llwritedb(satt[i].a_name); 

nwritedb("="); 

if  (strcmp(satt[i].data_type,"c20")=a=0)  | 

IIcsrRet(  1,32,0,  char_value); 
lIsetdom(  1,32,0,  char_value); 

I 

if  (strcinp(satt[i].data_type,"integer")sBO)  | 
llcsrRet(  1 30,4,&integer.value); 
llsetdom(130,4,&integer  value); 

) 

if  (strcmp(satt[i].data_type,"fioat">sO)  { 
ncsrRet(  131 ,4,&real_value); 
nsetdom(  131 ,4,&real_value); 

I 

if  (strcmp(satt[i].data_type,"image'’)=0)  { 
ncsrRet(  1 30,4,&medla_value); 

Ilsetdom(130,4,&media  value); 

I 

if  (strcmp(sattfi].data_type,"sound")=0)  | 
ncsrRet(  1 ,30,4,&media  1  _value); 

IIsetdom(l  30,4,&medial_value); 

) 

nwritedb(","); 

I 

nwtitedb(satt[i].a_nanie); 

nwritedb("="); 
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f 


if  (stTcnq)(satt[i].data_type,"c20")=0)  | 
ncsiRet(l,32,0,  char_value); 
nsetdom(  1,32,0,  char_valuc); 

) 

if  (strcmp(satt[i].data_type,"integer")=0)  { 
ncsrRet(l  ,30,4,&integcr_value); 
nsetdomC  1 ,30,4,&integer_value); 

) 

if  (strcmp(satt[i].data_typc,"float")==0)  ( 

IIcsrRetC  1 ,3 1 ,4,&real_value); 
nsetdom(  1,31 ,4,&real_value); 

) 

if  (strcmp(satt[i].data_type,"image")=0)  { 

IIcsiRetC  1 ,30,4,&tnedia_value); 

IIsetdom(  1 ,30,4,&inedia_value); 

) 

if  (strcinp(satt[i].data_type,"sound")=0)  { 

IIcsiRet(l  ,30,4,&medial_value); 
nsetdoin(l,30,4,&inedial  value); 

) 

/*  printf("\n");*/ 

ncsrEFetch((char  *>0);  /*  fetch  the  next  record  to  the  cursor  */ 

1++;  /*  increment  1  as  the  counter  */ 


if  (1sb:o)  {  t*  check  if  no  more  data  to  print  ♦/ 
look_more  =1;  /•  exit  of  the  loop  ♦/ 

I 

nwritedb("  )"); 

IlsqSyiK(3,(char  *)0); 

)  /*  IIcsrFetch  */ 

)  /*  end  while  */ 

) 


ncsrClose((char  ♦)0,"cursor_output","db2");  f*  close  the  cursor  ♦/ 
IIcsiClose((char  *)0,"cursor_output","dbr');  /*  close  the  cursor  ♦/ 
IIcsiClose((char  *)0,"cursor_output","db3");  /*  close  the  cursor  */ 
tetum(temp_table); 


y4i4i4i4i4i4i4>4i4i4ii|i4>4>4i4i4>4t4i4i4>4i4>4i4i4i4i4i4)4i4>*4i4i4i4>4i4<4i<|i4>4i*>t>4<4'4i*4>4i*4i4i4><t«k4i4i*4i4c4<*4<4i4i 


This  function  retrieves  the  tuples  from  temp_tabiel  which  do  not  take  place  in 
temp_table2  and  puts  the  res^t  in  temp_tabie. 

4i****4i***4i«4i**4i***4t4'*4i****4i*******4t4>4i«4i4t*4i****4i4i4i******4i**4t4i****«^ 

minus(temp_tablel,  temp_table2,  temp_table) 
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char  temp_tablel[20]; 
char  teii:q)_table2[20]; 
char  temp_table[20]; 

I 

int  i; 

nsqliiit((char  ♦)0); 
nwiitedb("retrieve  into  "); 
IIwritedb(temp_table); 
nwritedb("("); 
for  (i=0;i<n-l;i++)  { 
IIwritedb(tenf^_table  1 ); 
nwritedbC'.");  ~ 
Ilwritedb(satt[i].a_name); 
nwritedbC'."); 

I 

nwritedb(tenip_tablel ); 
nwritedbC'."); 
nwritedb(satt[i].a_name); 
nwritedbC')"); 

nwritedbC'where  any("); 
nwritedb(temp_table2); 
nwritedb(".all  by  "); 
nwritedb(tenip_tablel ); 
nwritedbC' .aU  "); 
nwritedbC'  where("); 
for  (i=0;i<n-l;i-H-)  { 

nwritedb(temp_tablel ); 

nwritedbC'."); 

nwritedb(satt[i].a_name); 

nwritedb("="); 

nwritedb(tenip_table2); 

nwritedbC'."); 

nwritedb<satt[i].a_natne); 

nwritedbC'  and  "); 

I 

nwritedb(ten:qj_table  1 ); 

nwritedbC’."); 

nwritedb(satt[i).a_name); 

nwritedb("="); 

nwritedb(tenip_table2); 

nwritedbC’."); 

nwritedb(satt[i].a_name); 
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nwritedb(”  )"); 
nwritedb(")  =  0"); 
nsqSync(0,(char  ♦)0); 
retum(teinp_table); 


^*4i***4>**4i*4>4i4t**4i*4i4i4t**4i***4t4i****4t4i****4i*4t***4i4r**«**4t******4i4t**4i4i 


This  function  intersects  two  tables  and  puts  the  result  in  ten:^_table. 


intersect_tables(teiiq>_tablel,  tenip_table2,  temp_table) 
char  temp_tableir20]; 
char  temp_table[20]; 

I 

int  i; 

/*  copy_to_file(tenip_tablel);*/ 

Ilsqlnit((char  "'lO); 

nwiitcdbC'retrievc  into  "); 

nwritedb(tenq}_table); 

nwritedb("("); 


for  (is=0;i<n-l;i-H-)  | 
nwritedb(ten:^_table  1 ); 
nwritedb(”."); 
nwritedb(satt[i].a_naine); 
nwritedb(","); 

) 

llwritedb(teinp_table  1 ); 
nwritedb("."); 
IIwritedb(satt[i].a_nanie); 
nwiitedbC')"); 


IIwritedb("  where("); 
for  (i=0;i<n-l;i++)  | 
nwiitedb<teinp_table  1 ); 
nwritedbC'."); 
nwTitedb(satt[i]  .a.iuune); 
Uwritcdb("="); 
nwritedb(teinp_table2); 
Uwritedb(".*'); 
Uwritedb<satt[i].a_nanie); 
nwiitedb("  and  "); 

I 

nwritedb(temp_table  1 ); 

nwritedbC'."); 

Uwritedb(satt[i].a_nanie); 
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nwritedb("=’’); 


IIwritedb(temp_table2); 
nwritedb("."); 
Uwiitedb(satt[i].a_name); 
nwritedb("  )"); 
nsqSync(0,(char  *>0); 
retum(teinp_table); 


^0t********************************************************** 


This  function  retrieves  the  tuples  from  temp_tablel  which  are  not  included  in  temp2  and 
puts  the  result  in  temp_table. 


^^l^i4i^i^l4t4l#4l^i^l*l4i^i^l^l^lt***^'**************'tl******'^‘*****^‘**’ll*******^ 


teinpl_not_in_tenip2(ten:^_tablel,  ten:^)_table2,  temp_table) 
char  temp_table[20]; 
char  tefnp_tablel[20]; 
char  temp_table2[20]; 

I 

int  ij; 
j=0; 


printf("VnWe  are  in  table l_NOT_IN_table2  now"); 


sq]ca.sqlcode  *  0;  /*  Initialize  as  error  free  before  access  INGRES  */ 
Ilsqlnit(&sqlca); 

Ilwritedb("retrieve  into  "); 
nwritedb(tenq>-table); 
nwritedb("("); 
for  (i=0;i<n-l;i++)  | 
nwritedb(satt[i]  .t_name); 
nwritcdb("."); 
nwritedb(satt[i]  .a.name); 
nwritedbC',"); 

I 

nwritedb(satt[i].t_name); 

nwritedb("."); 

nwritedb(satt[i].a_name); 

nwritedb(")"); 


nwritedb("  where(any  (" ); 

IIwritedb(tenip_table2); 

IIwritedb("."); 

IIwritedb(attribute_for_nested); 
/*  nwritedb(".aU  by  ");♦/ 
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/*  nwritedb(temp_tablel);*/ 
nwritcdbC  by  "); 

IIwritcdb(satt[i]  .t_name); 
nwritcdb(’'.aU  "); 

IlwritedbC'where  "); 

nwritcdb("(”); 

nwritcdb(satt[i].t_naine); 

I*  IIwritedb(temp_tablel);*/ 
nwritcdbC’.’'); 

nwritedb(condition_for_nested); 

llwritcdb("="); 

nwritedb(lcnip_tablc2); 

nwritcdbC’."); 

nwritcdb(attributc_for_nestcd); 

nwritcdbC’)’’); 
nwritcdbC’)  =  0’’); 
if  (in>l)| 
nwritcdbC’  and  ’’); 

UwritcdbC’C’); 

nwritcdb{join_condition); 

nwritcdbC’)’’); 

I 

nwritcdbC’)’’); 

nsqSync(0,&sqlca); 

if  (sqlca.sqIcode  Is  0)( 

printfC’VnAn  ctror  occurred  while  accessing  the  database’’); 
for  (j=j+l;  j<ni;  j-H-)| 
init_buffer(tenip_tablel  ^0); 
strcpy(tenip_tablel,  stab(j].t_name); 

sqIca.sqlcode  =  0;  /*  Initialize  as  error  free  before  access  INGRES  */ 

nsqlnit(&sqlca); 
nwritedbC’ietrieve  into  "); 
nwritedb(temp_tablc); 
nwritedbC’C’); 
for  (i=0;i<n-l;i-H-)  ( 
nwritedb(satt[i]  .t_nanie); 

IlwritedbC’.’’); 

IIwritedb(satt[i]  .a.name); 

UwritedbC’,’’); 

I 
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n>vritedb(satt[i]  .t.name); 
nwritedbC’."); 
nwTitedb(satt[i].a_name); 
nwritedbCT); 


IIwritcdb("wherc(any("); 

nwritedb(teinp_table2); 

nwritedb(""); 

IIwritedb(attribute_for_fiested); 
nwritcdb("  by  "); 

/*  nwriiedb(".aU  by  ");*/ 

nwritedb(sattli]  .t.name); 

I*  n  writedb(teinp_table  1 );  */ 

nwritedbC’ .aU  "); 
nwritcdbC’where  "); 
nwritedb("("); 
nwritedb(san[i]  .t.name); 

/*  nwriiedb(teinp_tablel);'''/ 

nwritedbC’."); 

nwritedb(condition_for_nested); 
nwritedb(’’=’’); 
nwritedb(teiiip_table2); 
nwritedbC’.’’); " 
nwritedb(attribute_for_tiested); 
nwritedb(")’’); 
nwritedb(’’)  *  O  ’); 
if  (in>l){ 
nwritedb(’’  and  "); 
Uwritedb(”("); 
nwritedb(join_condition); 
nwritedbC’)’’); 

) 

nwritedb(")’’); 

nsqSync(0,&sqIca); 

)/*  end  for  j<ni  */ 

)/*  end  if  */ 


This  function  joins  tempi  and  tenip2  and  letrives  the  tuples  from  tempi  that  takes  place 
in  temp2  and  puts  the  result  in  temp_table. 

«*******4r*4'«*4'4>****4>*****«**4><l>***4>4i4i***4>*4i*4i**4i**4i*4t****4>***4>y 
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teinpl_in_temp2(temp_tablel,  temp_table2,  temp_table) 
char  tcii:^_table[20J; 
char  temp_tablcl[20]; 
char  temp_table2[20]; 

I 

int  ij; 
j=0; 

printf("\nWc  are  in  table l_IN_table2  now"); 

sqlca.sqlcode  =  0;  /*  Initialize  as  error  free  before  access  INGRES  */ 
Ilsqlnit(&sqlca); 

IIwritcdb("ietricve  into  "); 

IIwritedb<tenq)_table); 

nwritedb("("); 

for  (i=0;i<n-l;i-H-)  | 

IIwritedb(satt[i].t_naine); 

Uwritedbf"."); 
nwritedb(satt[i]  .a_naine); 
nwritedbf","); 

I 

nwritedb(satt[i]  .t_nainc); 
nwritedbC’."); 

IIwritedb(satt[i].a_name); 

nwritedbC’)"); 


nwritedb("whetc("); 
nwritedb("("); 
IIwTitedb(ten^_table  I ); 
nwritedbC'."); 

nwritedb(condition_for_nested); 

nwritedb("="); 

nwritedb(ten:q>_table2); 

nwritedbC'."); 

nwritedb(attribute_for_nested); 

nwritedbC')"); 

if  (in>l){ 

Uwritedb("  and  "); 
IIwritedb("("); 
nwritedb(join_condition); 
nwritedbC’)"); 

) 

nwritedbC’)"); 

nsqSync(0,&sqlca); 
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if  (sqlca.sqlcode  !=  0)( 
for  (j=j+i;  j<m;  j++){ 
init_buffer(temp_table  1 ,20); 
strq)y(temp_tablel,  stab[j).t_iiaine); 

sqlca.sqlcode  =  0;  /*  Initialize  as  error  free  before  access  INGRES  ♦/ 
Ilsqlnit(&sqlca); 

IIwritedb("ietrieve  into  "); 
nwritedb(temp_table ); 

nwritedb("("); 

for  (i=0;i<n-I;i-H-)  { 
nwritedb(satt[i]  .t_name); 
nwritedbC'."); 
nwritedb(satt[i].a_nanie); 
nwritedbC," ); 

) 

IIwritedb(satt[i]  .t_naine); 
nwritedbC."); 
nwritedb(satt[i].a_name); 
nwritedbC)"); 

nwritedbC  where("); 
nwritedbCC); 
nwritedb(tenip_tablc  1 ); 
nwritedbC"); 

nwritedb(condition_for_nested); 
nwritedbC ="); 
nwritedb(ten^}_table2); 
nwritedbC."); 

nwritedb(attribute_for_nested); 

nwritedbC)"); 

if  (m>l)| 

IlwritedbC  and  "); 

UwritedbC("); 

nwritedb(join_condition); 

nwritedbC)"); 

) 

nwritedbC)"); 

nsqSync(0,&sqlca); 

)/*  end  for  */ 

)/*  end  if  •/ 
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This  function  joins  tempi  and  temp2  and  retrieves  the  tuples  from  tempi  that  do  not  take 
place  in  temp2  and  puts  the  result  in  temp_table. 

*4i4i*4i*4<***«*Dc*****4i4t4>*********4t4t«4<**4i«*4>***i|i****4<4i*«*****4t4>4c*y 

templ_not_exists_temp2(temp_tablel,  temp_table2,  temp_table) 
char  temp_tablc[20]; 
char  temp_tablel[20]; 
char  temp_table2[20]; 


int  i  j; 
j=0; 

printf("ViWe  are  in  table l_not_exists_table2  now"); 

sqlca.sqicode  =  0;  /*  Initialize  as  error  free  before  access  INGRES  */ 


nsqlnit(&sqlca); 
nwritedb("retrieve  into  "); 
IIwritedb(tenp_table); 
nwritedb("("); 

for  (i=0;i<n-l;i-H-)  { 
IIwritedb<satt[i]  .t_name); 
nwritedbC’."); 
Ilwritedbfsatt  [i]  .a_name ); 
nwritedb(","); 

I 

Dwritedbfsattfi].  f_name); 
UwritedtK"."); 
Ilwritedb(satt[i]  .a.name); 
nwritedb(")"); 


nwritedb("where(any("); 
IIwritedb(tenp_table2); 
IIwritedb(".all  by  "); 
nwritedb(satt[i]  .t_name); 
f*  Ilwritedb(temp_table  1 );  */ 
IlwritedbC'.all  "); 
IIwritedb{"where  "); 
IIwritedb("("); 
IIwritedb(join_for_nested); 
nwritedbC’)"): 
nwritedbC’ )=0"); 
if  (m>l)| 

nwiitedbf"  and  ’’), 

nwritedb(’’C’); 

nwritedb(join_condition); 
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nwritedbC’)"); 

) 

nwritedbC’)"); 


nsqSync(0,&sqlca); 
if  (sqlca.sqlcode  !=  0)| 

printf(”^nEiTor  occurred  while  accessing  the  database"); 
for  (j=j+i;  j<m;  j++)l 
init_buffer(temp_table  1 ,20); 
strcpy(temp_table  1 ,  stabjj]  .t_name); 

sqlca.sqlcode  =  0;  /*  Initialize  as  error  free  before  access  INGRES  */ 

nsqlnit(&sqlca); 
nwritedb(teinp_table); 
nwritedbC'C'); 
for  (i=0;i<n-l;i-H-)  { 
nwritedb(satt[i]  .t_name); 
nwritedbC’."); 
nwritedb(satt[i].a_nanie); 
nwritedbC’,"); 

I 

nwritedb(satt[i]  .t_name); 
nwritedb("”); 
nwritedb(satt[i]  .a_name); 
nwritedb(’’)’’); 

nwritedb(’’wherc(any("); 
nwritedb(ten^_table2); 
nwritedb(’’.all  by  "); 
nwritedb(satt[i].t_nanie); 

/♦nwritedb(temp_table  1  );♦/ 
nwritedb(’’.all  ’’); 
nwritedb(’’where  "); 
nwritedbC'!"); 
nwritcdb(join_for_nested); 
nwritedbC’)"); 
nwritedbC’ )=0’’); 
if  (m>l)| 

nwritedb!"  and  ’’); 

IlwritedbC’C’); 

Uwritedb(join_condition); 

nwritedbC’)"); 
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1 

nwritedbC')’’); 

nsqSync(0,&sqlca); 

)!*  end  j<m  */ 

)!*  end  sqlca.sqlcode  !=  0  ♦/ 


|itl^^m*****’¥**^^***^lH^****i^*1^*’t^*^^*^*‘*‘****************************** 


This  function  retrives  the  tuples  from  tempi  that  exists  in  temp2  and  puts  the 
result  in  temp_table. 


*4i4i4i<<<4i4i*4i4i4<*4>4i4i4i4i4i4i4i4<4<4>***4<4i4i4i4i*4i4i4<**4i4>4>4>4i*4>*****4<4>*4<4i4i*4>*4<4>4i^ 


templ_exists_temp2(temp_tablel,  temp_table2,  temp_table) 
char  temp_table[20]; 
char  temp_tablel(20]; 
char  temp_table2[20]; 

I 

int  ij; 

j=o; 


printf("VnWe  are  in  table  l_exists_table2  now*'); 

sqlca.sqlcode  =  0;  /♦  Initialize  as  error  free  before  access  INGRES  ♦/ 


Usqlnitl&sqlca); 
IlwritedbC'tetrieve  into  "); 
nwritedb(tenq)_table); 
nwritedb("("); 
for  (i=K);i<n-l;i++)  | 
IIwritedb(satt[i].t_name); 
nwritedbC’."); 
nwritedb($att[i].a_nanie); 
nwritedbC’,"); 

) 

nwritedb(satt[i]  .t_name); 
nwritedbC’."); 
nwritedb(satt[i].a_name); 
nwritedb(’’)’’); 


nwritedb(’’ where(’’ ); 
nwritedb(’’(’’); 
nwritedb(join_for_nested); 
nwritedM’’)"); 
if  (m>l){ 


171 


IIwritedb("  and  "); 

Uwritcdb("C’); 

IIwritedb(join_condition); 

nwritedb(")’’); 

) 

nwritedb(")"); 

nsqSync(0,&sqlca); 

if  (sqlca.sqlcode  !=  0)( 
for  (j=j+I;  j<m; 
init_buffer(temp_table  1 ,20) ; 

5trcpy(teinp_tablel,  stablj].t_name); 

sqlca.sqlcode  =  0;  I*  Initialize  as  error  free  before  access  INGRES  *! 

nsqlnit(&sqlca); 
nwritedb("retrieve  into  "); 

Ilwritedb(tenq)_table); 

DwritedbC’D; 
for  (i=0;i<n-l;i++)  | 

IIwritedb(satt[iJ  .t.name); 
nwritedb("."); 

IIwritedb(satt[i].a_name); 

UwritedbC',”); 

I 

IIwritedb(satt[i]  .t_naine); 
nwritedbC'."); 
nwritedb(satt[i]  .a.name); 

nwritedbC')"); 


nwritedb("where("); 

nwritedbC'C'); 

nwritedb(join_for_nested); 

nwritedbC')"); 

if  (m>l){ 

nwritedbC'  and  "); 
nwritedbC'C); 
nwritedb(join_condition); 
nwritedbC')"); 

I 

nwritedbC')"); 
nsqSync(0,&sqlca); 
)/*endifj<m  ♦/ 

)/*  end  for  */ 
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This  function  calculates  the  number  of  tuples  retrieved  in  the  result  table  and  prints  the 
number  of  tuples. 


void  print_count(temp_table,  i) 
char  temp_table[20]; 


int  i; 

I 


int  t=0; 

I 


nsqlnit((char  *)0); 
IlAvritedbC’retrieve  unique(t=("); 
nwritedbC'count"); 


nwritedb("("); 

IIwritedb(temp_table); 
nwritedbC’."); 
nwritedb(satt[i]  .a_name); 
nwritedbC’)))"); 
nsqRinit((char  *)0); 
if  (HentestO  =  0)  | 
if  (HnextgetO  !=  0)  { 
nretdom(  1 ,30,4,&t); 

)  /♦  Unextget  */ 
IIsqFlush((char  ♦)©); 

I  /*  Uerrtest  */ 


) 

printf("COUNT(%s)  =  %d  ",satt[i].a_namc,  t); 


^4i4i4i4i4i4i4i*4i4i«4i4i4<4i«4>4i*4i4i**4i4>*4i«4>4>4i***4>4i<ti***4i**4i*4'« 


This  function  calculates  the  sum  of  a  cloumn  retrieved  in  the  result  table  and  prints  the 
sum. 


0^i>tnnnniti***^i*m**********************m***********^ 

void  print_sum(teinp_table,  i) 
char  temp_table[20]; 
int  i; 

I 

int  t=0; 

{ 

nsqlnit((char  *)0); 
nwritedbC'retrieve  unique(t=("); 
nwritedb("sui.i"); 
nwritedbC'C); 


173 


IIwritedb(ten:^_table); 
nwritedbC’."); 
nwritedb(satt[i]  .a_name); 
nwritedbC')))"); 
nsqRinit((char  *)0); 
if  (nentcstO  ==  0)  { 
if  (UnextgetO  !=  0)  { 
nretdom(  1 ,30,4  ,&t); 

}  /*  Hnextget  */ 
nsqFlush((char  *)0); 

)  /*  Uerttest  */ 


) 

printf("SUM(%s)  =  %d  ",satt[i].a_name,  t); 


I 

^0*!tl^l*******************0*********************** 

This  function  calculates  the  average  of  an  attribute  of  a  tuple  retrieved  in  the  result  table 
and  prints  the  average. 

0**^Hi^0**4t*^************************************/ 


void  print_avg(teinp_table,  i) 
char  tenip_table[20J; 
int  i; 

( 

int  t=0; 

I 

nsqlnit((char  *)0); 
nwritedbC'retrieve  uniquc(t=s("); 
nwritedbC'avg"); 
nwritedbC'C’); 

Uwritedb(teinp_table ); 
nwritedbC’."); 
nwritedb(satt[i].a_nanie); 
nwritedbC')))"); 
nsqRinit((char  *)0); 
if  (nentestO  =  0)  | 
if  (UnextgetO  !=  0)  { 
nretdom(  1 ,30,4,&t); 

)  /*  nnextget  */ 
nsqFlush((char  *)0); 

)  /♦  nerrtest  */ 

I 

primf("AVG(%s)  =  %d",satt[i].a_name,  t); 

I 

******************************** 
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This  function  finds  the  max  of  a  coloumn  of  a  tuple  in  the  temp_table  and  prints  the  max. 

^,*4ii)Hi^f^),4,*iti**************************************l 

void  print_max(temp_table,  i) 
char  temp_table[20]; 


int  i; 

I 


int  t=0; 

I 


nsqlnit((char  ♦lO); 
nwritedbCretrieve  unique(t=(”); 
nwritedb(”max"); 
nwritedb("("); 


IIwritedb(tenp_table); 
nwritedb("."); 
nwritedb(satt[i] .  a_name); 
nwritedbC’)))"); 
nsqRinit((char  *>0); 
if  (IlentestO  =  0)  ( 
if  (IlnextgetO  !=  0)  | 
Ilretdomd  ,30,4,&t); 

)  /*  Hnextget  */ 
IIsqFlush((char  *)0); 

I  /*  Ileirtest  ♦/ 


I 

printf("MAX(%s)  =  %d  ",satt[i].a_name,  t); 


^***0mmm**m**m**m***********i*******************m 


This  function  calculates  the  min  of  an  attribute  of  a  tuple  retrieved  in  the  teiiq>_table  and 
prints  the  min. 

0*m*********************m***********************f 


void  print_min(temp_table,  i) 
char  tenq>_table[20]; 
int  i; 

I 

int  t=0; 

I 

nsqlnit((char  *)0); 

IIwritedb("retricve  unique(t=("); 

n  writedb(  "min" ); 

nwritedb{"("); 

nwritedb(tetTq)_table); 

nwritedbC'."); 

nwritedb(satt[i].a_name); 
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nwritedbC’)))"); 


nsqRiiiit((char  *)0); 
if  (IlentestO  =  0)  { 
if  (IlnextgetO  !=  0)  | 
IIretdoin(  1 ,30,4,&t); 
)  /♦  Dnextget  */ 
IIsqFlush((char  *)0); 

)  /*  Ueirtest  */ 


) 

printf("MIN(%s)  =  %d  ",satt[i].a_name,  t); 


This  fiinaion  checks  the  aggregate  type  in  the  struct  satt  and  calls  the  i^ropriate 
function. 

*4i*4i**4i**4i*4i**4t4i******4i**4r*4i*4t*4r4t*«*«*4r4>**4>***4r«***4>**4t**4>*4>4i**4>**^ 


print_aggregates(temp_table) 
char  temp_table[20]; 

I 

int  v; 

for(vs=0;  v<n;  v++)( 
if  (satt[v].aggiegate_type=l) 
print_count(temp_table,  v); 
if  (satt[v].aggregate_type=2) 
print_suni(temp_table,  v); 
if  (sattlv].aggregate_type=3) 
print_avg(teinp_table,  v); 
if  (satt[v].aggregate_type=4) 
print_inax(teinp_table,  v); 
if  (san[v].aggregate_type=5) 
print_min(temp_table,  v); 

I 

I 

/••*•*♦♦♦••*•***********♦**, 


This  function  prints  the  tuples  retiived  in  the  result  table. 

4i  4i  4i  4i*4i****4i**«4i4i  4i4i4i  4i4i  41*41 4i4i4>4i4i4i4i4>*4i*4>4>4i4>4i4>4>4**4i4i4i**4i4i4>4i4i4i***4i4i4i4>4i4i4i4i^ 

print_result_table(tcinp_tablc41ag,c) 
char  temp_table[20]; 
int  flag; 
int  c; 


I 

int  v; 

int  j=0jk=0,l=0,teinp,sclect=0; 
char  char_value[21],a,  Ans; 
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char  file_nanie[20]; 

int  mteger_value,media_value,found,iTiedial_value; 

float  reai_valuc; 

int  record_id; 

int  i=0; 

c=0; 

/*  #  line  3169  "db.sc"  */  /*  select  */ 

I 

Ilsqlnit((char  *)0); 

llwritedb(”rctrieve  unique(c=(count(" ); 

IIwritedb(temp_table); 

IIwritedb("."); 

Ilwritedb(satt[0]  .a_name); 
nwritedbC’)))"); 
nsqRinit((char  *)0); 
if  (UentestO  =  0)  { 
if  (IlnextgetO  !=  0)  ( 
lIfetdoni<  1 ,30,4  ,&c); 

}  /*  nnextget  ♦/ 
nsqFlush((char 
I  /♦  nentest  */ 

) 

1=0; 

if  (flag=FALSE){ 

printf("ViiThere  are  %d  records  that  match  the  query",c); 

/• - ♦/ 

if(c=0)  { 

printf(”VnPress  ENTER  to  continue..."); 

8=getchar(); 

return; 

I 

I 

/•  #  line  3171  "db.sc"  */  /*  host  code  */ 

if  (IlcsrOpen((char  *)0,"cursor_output","dbl",0,tenq)_table)  !=  0)  { 
IIwritedb("ietrieve  ("); 
for  (select=0;select<n-l;select-H-)  { 
nwritedb(satt[select]  .a_naine); 
nwTitedb("="); 

IIwritedb(ten^_table); 

nwritedbC’."); 

nwritedb<satt[select]  .a_name); 
nwritedbC',"); 

I 
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IIwritedb(satt[select]  .a_name); 

IIwritedb("="); 

IIwritedb(tenf^_table); 

nwritedbC’."); 

nwritcdb(satt[select].a_name); 
nwritedbC’)"); 
ncsiQuery((char  ♦)0); 

)  I*  ncsiOpen  */ 
printfCV); 
look_more=0; 

1=0; 

if  (c=0)  ( 

look_more=l; 

) 

/*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  query,  then  print  out  the  tuple  one  at  a  tiny 
until  no  more  record  to  print  to  the  user  *! 
while  (look_more  =  0)  { 

if  (ncsrFetch((char  ♦)0,"cursor_output","dbr’)  !=  0)  | 
printfC'record  id  %d  Nt"4+1); 
for  (i=0;i<n;i++)  | 

if  (strcmp(satt[i].data_type,"c20")=0)  | 
ncsrRet(  1 ,32,0,char_value); 
if  (satt(il.aggiegate_type«0) 
printf("%s  :  %s",satt[i].a_name,char_value); 

) 

if  (strcmp(satt[i].data_type,"integer")=0)  { 

IIcsrRet(  1 ,30,4,&integer_value); 
if  (satt[i].aggregate_type=0) 
printf("%s  :  %d  ",satt[i].a_name,integer_value); 

) 

if  (strcmp(satt[i].data_type,"float")s=0)  | 

IlcsrRet(  1 ,3 1 ,4,&real_value); 
if  (satt[i].aggregate_type=0) 
printf("%s  :  %8.2f  ",satt[i].a_name4eal_value); 

} 

if  (strcmp(satt[i].data_type,"image")=0)  | 

IIcsrRet(  1 ,30,4,&media_value); 
if  (satt[i].aggregate_type=0) 
printf("%s  id  is  %d  ",satt[i].a  name,media_value); 

I 

if  (strcmp(satf[i].data_type,"sound")=0)  { 
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HcsrRetC  1 ,30,4,&media  l_value); 
if  (satt[i].aggregate_typc==0) 
printf("%s  id  is  %d",satt[i].a_name,medial_value); 

) 

)  /*  end  for  select  <  n*/ 

IIcsrEFetch((char  *yOy,  /*  fetch  the  next  record  to  the  cursor  */ 
1++;  /*  increment  1  as  the  counter  */ 
if  (l==c)  I  /*  check  if  no  more  data  to  print  ♦/ 
look_morc  =1;  /*  exit  of  the  loop  */ 

) 

print_aggregates(temp_table); 

printfCV); 

)  /*  HcsrFetch  */ 

)  /*  end  while  */ 

ncsiClose((char  ♦)0,"cursor_output",*’dbl'’);  /*  close  the  cursor  */ 
if  (flag=FALSE)| 
printfC'Press  ENTER  to  continue 
a=  getchar(); 

) 

/*  this  for  the  check  for  the  media  selection  */ 
if  (c=0)  ( 
i=9999; 

I 


/*  if  there  are  some  aggregate  functions  print  their  results  */ 
/*  print.aggregates(ten^.table); 
printfC^iPtess  ENTER  to  continue 
a=  getchar();*/ 
letum(c); 


This  function  gets  the  image  id  of  a  tuple  in  the  result  table. 

get_image_id(r4mage_id) 
int  r; 

int  image.id; 

I 


int  sound_id; 
int  entry; 
int  desired_tuple; 
char  c_temp[60]; 
int  count=0; 


int  j=04c=0, 1=0, temp; 
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char  char_value[21J,a; 
char  £ile_namc[20]; 
int  img^value,  snd_value; 

int  integer_value,inedia_value,found4nedial_value; 
float  real_value; 
int  i=0,sclect=0; 
int  g=0; 
int  d; 

i_valuc[i_index]=0; 

desired_tuple=r; 

/*#  line  3169  ’’db.sc"  ♦/  /*  select  */ 

I 

nsqlnit((char  *)0): 

Ilwritedb("retrieve(g=(count(’'); 

IIwritedb(temp_table); 

nwritedb("."); 

nwritedb(satt[0].a_nanie); 

nwritedb(")))"); 

IIsqRinit((char  ♦lO); 
if  (IlentestO  =  0)  { 
if  (IlnextgetO  !=  0)  ( 
llretdom(l,30,4,&g); 

)  /*  llnextget  •/ 

IIsqFlush((char  *)0); 

)  /*  Ilentest  */ 

I 

1=0; 

if  (g=0)  ( 

printf("\nPress  ENTER  to  continue..."); 

a=getchar(); 

return; 

I 

/•#  line  3171  "db,sc"  ♦/  /*  host  code  */ 

if  (IIcsrOpen((char  *)0,"cursor_output","db2",0,tenip_table)  !=  0)  { 
nwritedb("retrieve("); 
for  (select=0;select<n-l;sclea-H-)  { 

IIwritedb{satt[seiect]  .a_name); 
nwritedb("="); 

IIwritedb(ten^_table ); 

IIwritedb("."); 

IIwritedb(satt[select].a_nanie); 

nwritedb("."); 

I 
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nwritedb(satt[select]  .a_natne); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbC*."); 

IIwritedb<satt[select].a_iiaine); 

nwritedbC’)"); 

ncsiQueiy((char  ♦)©); 

)  /*  ncsiO^n  */ 
printf("\n"); 
look_moie=0; 

1=0; 

if(g=0)  I 
look_moic=l; 

) 

I*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  query,  then  print  out  the  tuple  one  at  a  time 
until  no  more  record  to  print  to  the  user  */ 

while  (look_more  =  0)  ( 

if  (ncsrFetch((char  *)0,"cutsor_output","db2")  !=  0)  | 
if  (desired_tuple  =  1)| 
printfC'record  id  %d  V4+1); 

) 

for  (is0;i<n;i++)  | 

if  (strcmp(satt[i].data_type,"c20")=0)  ( 

UcsrRet(  1 32,0,char_vaiue); 
if  (desired_tuple  =  1){ 
printf("%s  :  %s",satt[i].a_nanie,char_value); 

) 

) 

if  (strcmp(satt[i].data_type,"integer")==0)  | 
ncsrRet(l  ,30,4,&integer_value); 
if  (desired_tuple  =  1)| 

printf("%s  :  %d  ",satt[i].a_name4nteger_value); 

) 

) 

if  (strcmp(satt[i].data_type,"float")=sO)  ( 
ncsrRet(  1 ,3 1 ,4,&real_value ); 
if  (desired_niple  =  1)| 

printf("%s  :  %8.2f  ",satt[i].a_name,real_value); 

I 

I 

if  (strcmp(satt[i].data_type,"image")==0)  | 
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ncsrRet(  1 ,30,4,&media_value); 
if  (desired_tuple  — 1){ 
iniage_id=inedia_value ; 

printf("%s  id  is  %d  ",satt[i].a_name,media_value); 

} 

} 

if  (strcmp(satt[i].data_typc,"sound”)==0)  | 

IlcsrRet(  1 ,30,4,&media  1  _value); 
if  (desired_tuple  =  1)( 

/*  sound_id=medial_value;*/ 

printf("%s  %d" ,satt[i].a_name4nedial_value) ; 

I 

I 

}/*end  for  select  n*/ 

ncsrEFetch((char  *)0);  /*  fetch  the  next  record  to  the  cursor  */ 
1++;  /*  increment  1  as  the  counter  */ 
if  (l=g)  I  /*  check  if  no  more  data  to  print  */ 
look_more  =1;  /*  exit  of  the  loop  ♦/ 

I 

)  /*  IIcsrFetch  */ 

I  /*  end  while  */ 


ncsiClose((char  *)0,"cursor_output","db2'*);  /*  close  the  cursor  ♦/ 


printf("SnPress  ENTER  to  continue 
a=  getchar(); 
retum(image_id); 


This  function  gets  the  sound  id  of  a  tuple  in  the  result  table. 

**mmm****m************************m*************m***iti********************f 

get_sound_id(r,sound_id) 
int  r; 

int  sound_id; 

I 


int  image_id; 
int  entry; 
int  desired_tuple; 
char  c_temp[601; 
int  count=0; 
int  j=0dc=0, 1=0, temp; 
char  char_value[21],a; 
char  filc_namc[20J; 
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MICROCOPY  RESOLUTION  TEST  CHART 
gMOfA,,  ne  «5TAN0AR0S-I963-A 


int  img_value,  snd_value; 

int  integer_value4nedia_value,found4nedial_value; 
float  real_value; 
int  i=0,select=0; 
int  g=0; 
int  d; 

i_value[i_mdex]=0; 

desired_tuple=r; 

/•  #  line  3169  "db.sc"  */  /♦  select  */ 

I 

Ilsqlnit((char  *)0); 

IIwritedb("retrieve(g=(count('’); 

llwritedb(temp_table); 

UwritedbC’."); 
nwiitedb(satt[0]  .a_name); 
nwritedb(")))"); 
nsqRinit((char  "'lO); 
if  (hentestO  =  0)  { 
if  (IlnextgetO  1=  0)  | 

IIretdoni(  1 ,30,4,&g); 

)  /*  Ilnextget  ♦/ 

IIsqFlush((char  *)0); 

)  I*  nentest  */ 

) 

1=0; 

(g=0)  { 

printfC^iPress  ENTER  to  continue..."); 

a=getchar(); 

return; 

I 

/*#  line  3171  "db.sc"  ♦/  /*  host  code  ♦/ 

if  (ncsrOpen((char  *)0,"cursor_output","db2",0,temp_table)  !=  0)  | 
IIwritedb("retrieve(" ); 
for  (select=sO;select<n-l;select-H-)  { 
nwritedb(satt[select].a_name); 

Uwritedb("="); 

nwritedb(temp_table); 

nwritedb("."); 

nwritedb(satt[select].a_nanie); 

nwritedbC’,"); 

) 

IIwritedb(satt[select].a_name); 

nwritedb("="); 
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nwritcdb(ten^_table); 

nwritcdK"."); 

nwritedb(satt[select].a_name); 
nwritedbC’)"); 
lIcsrQuery((char  ♦)0); 

)  /♦  HcsiOpen  */ 
printf("Vn"); 
look  more=0; 

1=0;" 
if  (g=0)  I 
look_more=l; 

) 

I*  Fetch  the  cursor  to  the  result  relation  which  is  the  intermediate  table 
hold  the  result  from  the  query,  then  print  out  the  tuple  one  at  a  time 
until  no  more  record  to  print  to  the  user  */ 

while  (look_more  =  0)  { 

if  (ncsrFetch((char  *)0,"cursor_output","db2")  !=  0)  | 
if  (desired_tuple  =  1)( 
printfC’record  id  %d'4",l+l); 

) 

for  (i=0;i<n;i4+)  ( 

if  (strcmp(sattti].data_type,"c20")==0)  ( 
llcsrRet(  1 ,32,0,char_vdue); 
if  (desired_tuple  =  1){ 
printf("%s  :  %s",satt[i].a_name,char_value); 

) 

» 

if  (strcmp(satt[i].data_type,"integer")=0)  | 

IIcsrRet(  1 ,30,4,&integer_value); 
if  (desired_tuple  ==  1)( 

printf("%s  :  %d  ”,satt[i].a_natne4nteger  value); 

) 

) 

if  (strcmp(satt[i].data_type,"float")=0)  { 

IlcsrRet(  1 ,3 1 ,4,&real_value); 
if  (desired_tuple  ==  1){ 

printf("%s  :  %8.2f  ",satt[i].a_name,real_value); 

) 

) 

if  (strcmp(satt[i].data_type,"image")=0)  | 
ncsrRet(  1 ,30,4,&me<ha_value); 
if  (desired_tuple  =  1)| 
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/*  image_id=inedia_value;*/ 

printf("%s  id  is  %d  ",satt[i].a_naine,media_value); 

) 

) 

if  (strcmp(satt[i].data„type,"sound")==0)  | 

IIcsrReU  1 ,30,4,&medial_value); 
if  (desired_tuple  =  1){ 
sound_id=medial_value; 
printf("%s  %d"^att[i].a_name4nedial_value); 

) 

I 

)/*end  for  select  n*/ 

ncsrEFetch((char  *)0);  /*  fetch  the  next  record  to  the  cursor  ♦/ 
1++;  /*  increment  1  as  the  counter  */ 
if  (l=g)  I  /*  check  if  no  more  data  to  print  ♦/ 
look_more  =1;  /*  exit  of  the  loop  */ 

I 

)  /*  IIcsrFetch  */ 

)  /*  end  while  ♦/ 

ncsiClose((char  *X),"cursor_output",”db2");  /*  close  the  cursor  ♦/ 
retum(sound_id); 

) 


y4i4i4i4i4i4)4<4t4>*4i4i*4)4i4>4'*4>*4'4"li4'4i**4i4i4<4>4>*4>4»l>4t4i4>4t4t4i4>4t4t4i4i4>4t<|i4>*4t4>4>**4>4>4t4<4>**4>4t 


This  function  caUs  the  function  print_result_table  and  then  queries  the  user  if  he  wants 
to  display  any  media  data. 

4i4i*i^4>4)4'4i4i4i4i4i4i4i4r4i4>4i4>*4i4<4>4>4>4>4t4t4>4i4i4><l>4>4>4i4t4i4>4i4>4t*4>4i4i4i4i4>4i4>4i4i4>4>4i4'4«4'4'*4'4'4"t>4i^ 


ql_printdata(temp_table) 
char  temp_table[20]; 


\ 

int  image_id=0; 
int  sound_id=0; 

int  c=0J=0Jk=04=0,ten:q),select=0; 
char  char_value[21],a,  Ans; 
char  file_name[20]; 

int  integer_value4nedia_value,found4nedial_value; 

float  real_value; 

int  record_id,  flag=FALSE; 

int  i=0; 

c=print_result_table(tenq)_table,  flag,  c); 
flag=TRlJE; 
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for  (k=50;k<n;k++)  ( 

if  ((sticn5)(satt(k].data_typc  "iinage")=0)n(strcmp(sattlk].data_type,"sound”)=0))  { 
if  (strcmp(satt[k].data_type,"imagc")==0) 
printf("\tiDo  you  want  to  display  any  media  data  ?  (y/n)"); 
if  (sticmp(satt[kJ.data_type,"sound”)=0) 
printf("VnDo  you  want  to  display  any  media  data  ?  (y/n)"); 
Ans=yes_no_answer(); 
if  ((Ans=121)ll(Ans=89)){ 
for  (k=0;k<n;k-H-)  { 

if  (strcmp(satt[k].data_type,"image")=0)  | 

Ans  =121; 

while  ((Ans  =  121)  II  (Ans  ==  89))| 
if  (c>l)| 

printf("Nri\nWhich  tuple’s  image  do  you  want  to  see?  (enter  record  id) ;"); 

scanf("%d",  &record_id); 

getcharO; 

printf("iecord_id  -->  %d",  lecoidjd); 

) 

if  (c=l) 
iecord_id=l; 
if  (c=0) 
goto  final; 
j  =  iecord_id  -  1; 

image_id*get_image_id(j,image_id); 
for  (i=0;i<n;i++)  { 

if  (strcmp(satt[i].data_type,"image")=0)  { 
strcpy(table_array[table_index]  .table_name,  satt[i].t_naine); 
found  =  check_table_naine(); 
table_cursor  =  table_entry; 
stTcpy(media_naine^att[i].a_nanie); 
get_media_natne(); 

display^hoto(iJ,teinp_table4mage_id); 

) 

I 

printf("VnDo  you  want  to  see  more  image  data  7  (Y/N)  :"); 

Ans=yes_no_answer(); 
if  ((Ans=121)ll(Ans=89)) 
print_result_table(temp_table,flag); 
if  ((Ans=l  10)ll(Ans=78)) 
goto  next; 

I 

I 

I 
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next: 

for  (k=:0;k<n;k-H-)  { 

if  (strcmp(satt[k].data_type,"sound")==0)  ( 

Ans=121; 

while  ((Ans  =  121)  II  (Ans  ==  89))  | 
print_iesult_table(tenip_table,  flag); 
if  (c>l){ 

piintf("NnWhich  tuple’s  sound  do  you  want  to  hear?  (enter  record  id) :"); 
scanf("%d",  &record_id); 

) 

if  (c=s=l){ 
rccord_id=l; 

I 

if  (c==0) 
goto  final; 
j  =  iecord_id  -  1; 

sound_id=get_sound_id(j,sound_id); 
for  (i=0;i<n;i++)  { 

if  (strcmp(satt(i].data_type,"sound")=0)  ( 
printf("VnSound  management"); 

strcpy(table_array[table_index].table_name,  satt[i].t_name); 
found  =  check_table_name(); 
table_cursor  =  table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 

display_soimd(ij,temp_table,  sound_id); 

) 

I 

printf("\nI>o  you  want  to  hear  more  sound  data  7  (Y/N)  ;"); 
Ans=yes_no_answer(); 

) 

) 

) 

)/*  end  if  ans=121  (the  one  at  the  top)  */ 
else 
k=900; 

l/^end  if  strcn:^datatype=image  or  sound)  */ 

)/*  end  for  k<n  (top  one  )  */ 

/*printf("\n");*/ 

/♦  Drop  table  result  after  finished  print  */ 

/*drop_table(temp_table);*/ 

flnal: 
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drop_teinp_meclia_tables(); 

) 

^tt****************************************** 

This  function  drops  a  table  in  INGRES. 

drop_table(table_name) 
char  table_nanie[20]: 

I 

I 

Ilsqlnit((char  ♦)0); 

IlwritedbC’destroy  "); 
nwritedb(table_name); 
nsqSync(0,(char  *)0); 


^«*4i4>*******4i4»ti4>**4>*** 

This  function  initializes  an  array  upto  size  100. 

init_buOfe*f  buffer  j) 
char  buffer[100]; 
int  j; 

I 

int  i; 

for  (isK);i<j;i++)  | 
buffer(i]  =  ’\0’; 

) 

I 

^4i4i4>«4>4i*4>*4i4i4>4>4i*4i4i4>4i* 

This  function  drops  the  temporary  media  tables  used  to  hold  the  intermediate  results  of 
a  query. 

*  ******:*  4i  4>  **  4>  *  4>  4>  4>  *  4i  *  4iy 


drop_temp_media_tables() 


int  k; 
char  1[S]; 

char  tempstring[100]; 
for  (k=0;  k<10;  k++)| 
strcpyftempstring,  "p"); 
inttostr(k4); 
strcat(tempstring4); 
nsqlnit((char  *)0); 
Owritedbf  "destroy  "); 
IIwtitedb(  tempstring); 
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% 


nsqSync(0,(char  *)0); 

init_buffcr(tempstring,100); 

init_buffcr(l^); 

I 


This  function  asks  the  user  to  enter  a  join  condition. 

4i  *  4i  *  4i  4i «  *  *  *  *  *  *  *  4<  4>  *  *  4>  4>  *  *  4i  *  4<  *  4i  41 4>  *  4i  4i  4< 

void  help_join() 

I 

int  i=0; 
if  (m  >  1)  I 

strcpy(join_condition,’*?"); 
while  (strcinp<join_condition,"?")=0)  | 
printf(”SnPlease  enter  your  join  conditionSn(<?>  for  help!) 
gets(join_condition); 
if  (strcmp(join_condition,"?">=0)  { 
for  (i=0;i<m;i++)  { 
printf("\nTable  %s  "^tab[i].t_name); 
p_att(stab[i]  .t_name); 

)  /*  end  for  loop  */ 

)  /*  end  if  need  help  for  join  */ 

)/*end  while*/ 

)  /*  end  if  more  than  1  table  select  */ 

I 

^4>4'4'4)4'4'4>*4'*4'4>4'4'4'4'4'<f»l>4'4>4'4)4r4t4i4t4i4i4tJ(i4t4t4i4>4i 

This  user  asks  the  user  to  enter  three  temp  table  names  for  intersection. 

4i  4i  4i  <!■  4i  ^  <|i  4i  4>  4>  *  <t<  4i  4i  4>  4<  <•<  #  4t  4>  4i  4>  <•»•<  4i  4i  4>  4' 4>  4> 

char  get_temp_table_names_for_intersection(temp_table  1  ,temp_table2,temp_table) 
char  temp_tablel[20j; 
char  temp_table2[20]; 
char  temp_table[20j; 

I 

printf(”VnEnter  first  temp  table  name 
gets(buff); 

strcpy(temp_tablel,  buff); 
init_buffer(buff ,  1 00); 

printfCNnEnter  second  tenq)  table  name  :"); 
gets(buff); 

strcpy(temp_table2,  buff); 
init_buffer(buff,100); 

printf("\nEnter  another  temporary  table  name  to  hold  the  result ;"); 
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gets(bu^; 

strcpy(ten^_table,  buff); 
init_buffer(buff,100); 

rctum(temp_tablel,  temp_table2,  tenip_table); 


) 

^i^Hati********************************* 

This  function  shows  the  intersectAuiion/minus  menu. 

m***^iiii**m****************************/ 


char  interscct_union_menu(answer) 
char  answer; 

I 

answer  =  ’?’; 

/*  while  (!(  ’0’<=  answer  &&  answer  <=  *3’)) 

{*/ 

clr_scr(); 

printf("VnIf  you  want  to  intersect  /  union  /  minus  any  two  temporary  tables:\n"); 

printf("\t  -  - Nn"); 

piintfC'Vn'Ml.  INTERSECT  two  tables"); 
printf('V^2.  UNION  two  tables"); 
printfCVnVtS.  MINUS"); 
printf(*>nNtO.  Quit"); 

printf("VnNt  .  ■  ■  - ^o"); 

piintfCViVtSclect  your  choice  ::  "); 

answer  »  getchatO; 

while  ((c  =  getcharO)  f=  'Vn') 

;  I*  Not  return  do  nothing  */ 

/*  )♦/ 
return  (answer); 


I 

This  function  asks  the  user  if  he  wants  to  unimt/intersectAninus  any  two  tables  and  p[uts 
the  result  in  temp_table. 


query_for_intersect_union(choice,temp_tablel,temp_table2,temp_table) 

char  choice; 

char  temp_tablel[20]; 

char  temp_table2[20]; 

char  temp_table[20J; 

I 

choice  =  ’?’; 
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clr_scr(); 

while  (choice  !=  ’O’) 

{ 

choice  =  intersect_union_menu(choice);^  print  the  choice  for  user  select  on  screen 

*/ 

switch(choice)  /*  User  select  case  ♦/ 

{ 

case  ’1’  :  /*  create  table  ♦/ 

clr_scr(); 

printf("NnYour  Selection  is  INTERSECT"); 

printf(”\nHit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 

if  (getcharO  !=  V’) 

{ 

getcharO;  /*  To  let  next  getcharO  work  well  */ 
break; 

I 

get_temp_table_names_for_intersection(temp_table  1 ,  temp_table2, 

temp_table); 

printfC’Vn***  The  result  of  the  INTERSECTION  will  be  kept  in 
temp_table***  %s  ***Vn",  temp.table); 

inteisect_tables(ten:^_tablel,  tenip_table2,  temp_table); 
ql_printdata(temp_table); 
break; 
case  ’2’  : 

clr.scrO; 

printf("VnYour  Selection  is  UNION”); 

printf("NnHit  Return  to  continue!  (Any  other  key  to  QUIT!)'’); 

it  tgetcharO  !=  'Nn’) 

I 

getcharO;  /*  To  let  next  getcharO  work  well  */ 
break; 

I 

get_temp_table_nanies_for_intersection(temp_table  1 ,  temp_table2, 

temp_table); 

printf('\i***  The  result  of  the  UNION  will  be  kept  in  tenip_table***  %s 
***\n",  teinp_table); 

union_tables_for_denio(temp_tablel,  temp_table2,  temp_table); 

ql_printdata(teinp_table); 

break; 

case  ’3’  :  /*  create  table  */ 

clr_scr(); 

printf("\nYour  Selection  is  MINUS"); 

printf("NnHit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 
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if  (getcharO  !=  ’\n’) 

I 

getcharO;  /*  To  let  next  getcharO  work  well  */ 
break; 

I 

get_teinp_table_names_for_intersection(temp_table  1 ,  temp_table2, 

tenqp.table); 

printf("Nn***  The  result  of  die  MINUS  will  be  kept  in  temp_table***  %s 
***\n",  temp_table); 

ininus(temp_tablel,  tetnp_table2,  temp.table); 

ql^rintdata(temp_table); 

break; 

case  ’0’  : 

clr_scrO; 

printf("\nHit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 
if  (getcharO  !=  "«’) 

I 

getcharO;  /*  To  let  next  getcharO  work  well  */ 
break; 

I 

break; 

I  /*  End  of  switch  */ 

I  /*  End  of  while  choice  !=  'O’  */ 
retum(choice); 
retum(temp_table  1 ); 
tetum(tenq)_table2); 
retum(tetnp  table); 

) 

This  function  displays  the  Retrieval  qxrations  menu 

,**«***,«****,*********«*«**********«z 

char  show_utility_menu(answer) 
char  answer; 

I 

answer  =  ’?’; 

/♦  while  (!(  ’0’<=  answer  &A  answer  <=  ’4’)) 

{*/ 

clr_scr(); 

printf("\nNiRetrieval  Operations  MenuNn"); 

printf("\t==^^:==— -.====1^=  =7.^ - \n’’); 

printf("NriStO.  Sirqple  Condition"); 
printf("NnNil.  table  1  where  EXISTS  tsdjle2"); 
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printf(*^''i2.  tablcl  where  NOT  EXISTS  table2"); 
printf("\nvr3.  tablel  IN  table2''); 
printf("\riVt4.  tablel  NOT  IN  table2"); 

printf(**VnNi  . =  ■;===  -= — Nn" ); 

printf("Vn\tSelect  your  choice  ::  "); 

answer  =  getchar(); 

while  ((c  =  getcharO)  !=  Ni’) 

;  /*  Not  return  do  nothing  ♦/ 

/*  )  */ 

return  (answer); 


Ths  function  calls  the  functitm  show_utiIity_nienu  and  calls  other  functions  to  process  the 
user’s  choice. 


mt,m*m**********m*m***************************************f 

utiiity_menu(choice,tenq)_table  1  ,temp_table2,t«np_table) 

char  choice; 

char  tenip_tablel[20]; 

char  tenip_table2[20]; 

char  tenip_table[20]; 

{ 

choice  =  ’?’; 
clr_scr(); 


/*  while  (choice  !=  ’O’) 

I*/ 

choice  =  show_utility_nienu(choice);/*  print  the  choice  for  user  select  on  screen  */ 
switch(choioe)  /*  User  select  case  */ 

{ 

case  ’1’  :  /*  create  table  */ 

clr_scr(); 

printf('NiYour  Selection  is  tablel  where  EXISTS  table2"); 
p^intf('^nHit  Return  to  continuel  (>Jiy  other  key  to  QUIT!)"); 
if  (getcharO  !=  ’^’) 

I 

getcharO;  /*  To  let  next  getcharO  work  well  ♦/ 
break; 

) 

printf("ViEnter  the  temp  table  name  related  to  EXISTS  :"); 
gets(bufO; 

strcpy(temp_table2,  buff); 
init_buffer(buff ,  1 00); 
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printf(”VnPlease  enter  your  join  ::onditioriVnbetween  "); 
if  (m=l) 

printf("%s  and  ",  temp_tablel); 
if  {m>l) 

printfC'the  appropriate  table  and  "); 
printf("**  %s  **  temp_table2); 
gets(buff); 

strcpy(join_for_nested,  buff); 
init_buffer(buff ,  100); 
break; 
case  '2’  ; 

clr_scr(); 

printf("NnYour  Selection  is  tablel  where  NOT  EXISTS  table2"); 
printf("\nHit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 
if  (getcharO  !=  ’Nn’) 

I 

getcharO;  I*  To  let  next  getcharO  work  well  ♦/ 
break; 

I 

printf("VnEnter  the  temp  table  name  related  to  NOT  EXISTS  :"); 
gets<buff); 

strcpy(ten:^_table2,  buff); 
init_buffer(buff,100); 

printfC^iPlease  enter  your  join  conditionNnbetween  "); 
if  (m— ”1) 

piintf("%s  and  ",  teinp_tablel); 
if  (m>l) 

printfC'the  ifipropriate  table  and  "); 
piintfC"**  %s  **  ten:^_table2); 
gets(buff); 

strcpy(ioin_for_nested,  buff); 
init_buffer(buff,100); 
break; 
case  '3'  : 

clr_scrO; 

printf("VnYour  Selection  is  tablel  IN  table2"); 
prinif("'«Hit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 
if  (getcharO  !=  \i’) 

I 

getcharO;  /*  To  let  next  getcharO  work  well  ♦/ 
break; 

) 

printf("NnEnter  the  temp  table  name  related  to  IN  :"); 
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gets(buff); 

strcpy(teiiq>_table2,  buff); 
init_buffcr(buff,100); 


printf("\riVnEnter  attribute  for  "); 
if  (m==l) 

printfC'tabie  %s",  temp_tablcl); 
if  (m>l) 

printfC'the  appropriate  table"); 
printfC  for  condition  of  IN  :"); 
gets(buff); 

strcpy(condition_for_nested,  buff); 
init_buffer(buff ,  100); 

printf("Vn\nTable  **  %s  **",  tenip_table2); 
printf("\nSELECT  ATTRIBUTE  (only  one  attribute!)  :"); 
gets(buff); 

strcpy(attribute_for_nested,  buff); 
init_buffer(buff,  1 00); 
break; 
case  ’4’  : 

clr_scr(); 

printf("VnYour  Selection  is  tablel  NOT  IN  table2"); 
printfC'^tiHit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 
if  (getcharO  !=  "«’) 

I 

getcharO;  /*  To  let  next  getdiai()  work  well  ♦/ 
break; 

) 

printf("\n£nter  the  temp  table  name  related  to  NOT  IN  :"); 
gets(buff); 

strcpy(temp_table2,  buff); 
init_buffer(buff,100); 

printf("VnNnEnter  attribute  for  "); 
if  (m— 1) 

printfC'tabie  %s",  temp_tablel); 
if  (m>l) 

printfC'the  appropriate  table"); 
printfC  for  condition  of  NOT  IN  ;"); 
gets(buff); 

strcpy(condition_for_nested,  buff); 
init_buffcr(buff,100); 
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printfCVNnTablc  **  %s  **",  tcmp_table2); 
piintf("VnSELECT  ATTRIBUTE  (only  one  attribute!) 
gets(buff); 

strcpy(attribute_for_nested,  buff); 
init_buffer(buff,100); 
break; 
case  ’0’  : 

clr_scr(); 

printf("VnYour  Selection  is  NORMAL  RETRIEVAL"); 
printf("VnHit  Return  to  continue!  (Any  other  key  to  QUIT!)"); 
if  (getcharO  !=  ’Nn’) 

I 

getcharO;  /*  To  let  next  getchar()  work  well  ♦/ 
break; 

I 

break; 

I  /*  End  of  switch  ♦/ 

/*)♦//*  End  of  while  choice  !=  *0’  ♦/ 


retum(choice); 
retum(tentp_table  1 ); 
retum(teinp_table2); 
retum(temp_table); 


41111414141414141414,4141414,41414, 


This  function  checks  if  any  attributes  with  aggregate  functions  exist  in  the  attributes 
entered  by  the  user. 

4i4i4,4i4t4>*4i4i4i4i4>4>4>4i4i4i4>4>4i4i4<4i4i4i4>4>4i4>4>4<4i4i4>^ 


char  check_aggiegate(buffer,  tmp,  aggregate.found) 
char  buffer(13]; 
char  tinp[3]; 

{ 


int  i  =  0; 
int  jj  =  0; 

for  (ij=0;jj<3;jj++){ 
if  (bufferli]=40)| 
/*  tn^|jj]=’N0’;*/ 

jj=1000; 

I 

else! 

tinplij]=buffer[i]; 


I 
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i++; 

)  /*  end  for  jj  <  3  *! 
tmp[3]=’\0’; 


f 


((strcn^tmp,"cnt")=0)ll(strcmp(tmp,"suin")=0)ll(strcmp(tmp,"avg")=0)ll(strcmp(tinp 
,"min")=0)ll(strcmp(tmp,"max")=0))  | 
aggregate_found=TRUE; 


) 

retuin(aggTegate_found); 


^*****4>*********4i*)ti**4i**4i4>4t*4t4i4c*4i4>4>**4t4i 


When  there  is  an  aggregate  function  among  tlie  attributes  entered  by  the  user,  this 
function  separates  the  attribute  from  the  aggregate  part. 


char  get_attribute(buffer,  attribute) 
char  buffer[13]; 
char  attribute[13]; 

I 

int  i  =  4; 
int  j; 

for  (j=0:j<13;j++)| 
if  (buffer[i]==41)( 
attribute[j]s=  ’'O’; 
j=100; 

I 

else( 

atttibute(j]=buffer[i]; 

I 

i=i+l; 

}  /*  end  for  j  <  13  */ 
letum(attribute); 


I 

/* 


When  mod  is  modify  mode  (MOD_MODE)  this  function  is  the  main  function  calling 
other  other  functions  to  delete  the  tuples  from  the  related  media  tables. 

4i4>4i4»|i4i4>4<*4<4>4>4<4'^4i4<4>*^4<4i4i4>4>4>4i4'4<4<4i>ti4<4i4i4>4>4i4'4'4i4'^ 

void  delete_for_modify(r) 
int  r; 

I 


int  j=0,k=04=0,temp; 
char  char_value[21],a; 
char  file_name[20]; 

int  integer_value  ^nedia.value  ,found4nedia  l_value; 
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int  iin_value,  so_value; 
int  desired_tuple; 
float  real_value; 
int  i=0,select=0; 
int  c=0; 

dcsired_tuplc=r; 

printf("VnTuple  #  %d  is  being  deleted  now  desired_tuple+l); 
sleep(2); 

/•  #  line  3169  "db.sc"  */  /*  select  ♦/ 

I 

Ilsqlnit((char  *)0); 

nwritedbC'ietrieve  unique(c=(count("); 
nwritedb(teinp_table); 
nwritedb("."); 

nwritedb(satt[0].a_name); 

nwritedbC*)))"); 

IIsqRinit((char 
if  (IlentestO  =  0)  { 
if  (IlnextgetO  1=  0)  ( 

IIretdom(  1 ,30,4, &c); 

J  /*  llnextget  */ 

IlsqFlush((char  *)0); 

)  /*  nentest  */ 

I 

1=0; 

if  (c=0)  ( 

printf("NnPiess  ENT1ER  to  continue...”); 
a=getchar(); 
return; 

I  ^4i4i4>*4i4i4>4>^ 

/•  #  line  3171  "db.sc"  ♦/  /*  host  code  */ 

if  (ncsiOpen((char  ♦)0,"cursor_output","dbl",0,teirp_table)  !=  0)  ( 
nwritedbC’retiieve  ("); 
for  (select=0;selcct<n-l;select-H-)  { 
n  writedb(satt[select] .  a_naine ); 
nwritedb("="); 
nwritedb(ten^_table); 
nwritedbC’."); " 
nwritedb(satt[select].a_name); 
nwritedbC',"); 

I 

nwritedb(satt[select]  .a_name); 
nwritedbC’="); 
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nwritedb(temp_table); 

nwritedbC’."); 

nwritedb(satt[select]  .a„name): 
nwritedbC')"); 
ncsiQuery((char  *)0); 

)  I*  HcsrOpen  */ 
printf("\n"); 
look_more=0; 

1=0; 

if  (c=0)  { 
look_moie=l; 

) 

/*  Fetch  the  cursor  to  the  temp.tablerelation  which  is  the  intermediate  table 

hold  the  temp_tablefrom  the  query,  then  print  out  the  tuple  one  at  a  time  until  no 
more  record  to  print  to  the  user  */ 
while  (look_morc  =  0)  { 

if  (ncsrFetch((char  ♦)0,"cursor_output","dbr*)  !=  0)  { 
if  (desired_tuple  ==  1)| 
printfC'record  id  %d  '^"d+l); 

) 

for  (i=0;i<n;i-H-)  { 

if  (strcmp(satt[i],data_type,"c20")=0)  { 
ncsrRet(  1 ,32,0,char_value); 
if  (desired_tuple  =  1) 

printf("%s  ;  %s",san[i].a_name,char  value); 

) 

if  (strcmp(satt[i].data_type,"integer")=0)  I 
ncstRet(l  ,30,4,&integer_value); 
if  (desired_tuple  =  1) 

printf("%s  :  %d  ",satt[i].a_name,integer_value); 

) 

if  (strcmp(satt[i].data_type,"float">=0)  | 
ncsrRet(  1 ,3 1 ,4,&teal_vaiue); 
if  (desired_tuple  1) 

printf("%s  ;  %8.2f  ",satt[i].a_name,real_value); 

) 

if  (strcmp(satt[i].data_type,"image")=0)  { 
ncsrRet(  1 ,30,4,&media_value); 
if  (desired_tuple  —  1){ 
im_value=media_value; 

printf("%s  id  is  %d  ”,satt[i].a_naine4nedia_value); 

) 

) 
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if  (sticmp(satt[i].data_typc,"sound")==0)  { 

IlcsrRct(l  ,30,4,&meiUal_value); 
if  (desiied_tuple  =  1){ 
so_value=niedial_value; 
printf("%s  %d",satt[i].a_name^edial_value); 

) 

) 

)  /*  end  for  select  <  n*/ 
printfC'Vn"); 

UcsrEFetch((char  ♦)0);  /*  fetch  tlw  next  record  to  die  cursor  */ 

1++;  /*  increment  1  as  the  counter  */ 
if  (l=c)  (  /*  check  if  no  more  data  to  print  */ 

look  more  =1;  /*  exit  of  the  loop  */ 

) 

}  /*  IIcsrFetch  */ 

I  /*  end  while  */ 

llcsrClose((char  ♦)0,"cursor_output'',"dbl");  /*  close  the  cursor  */ 
printfC'Press  ENTER  to  continue 
te=  getchaif); 

/*  this  for  the  check  for  the  media  selection  */ 
if  (c=0) 

1=9999;  /*  if  no  record  for  the  media  data  not  process  any  thing  */ 
for  (issO;i<n;i++)  | 

if  (strcn^satt[i].data_type/'image")==0)  | 
if  (image_flag=TRUE)( 

strcpy(table_array[table_index].table_name,  satt[i].t_name); 
found  =  check_table_name();  /*  search  for  the  media  name  */ 
table.cursor  =  table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 

printf("\nThe  media  data  from  the  media  table  ***  %s  ***  is  being  deleted 
now...”,  media_name); 
sleep(4); 

mod_get  iid_iniage(i,  im_value); 

) 

) 

if  (strcmp(satt[i].data_type,"sound")=0)  ( 
if  (sound_flag=TRUE)| 

strcpy(table_array[table_index].table_name,  satt[i].t_name); 
found  =  check_table_name(); 
table_cursor  =  table_entry; 
strcpy(media_name,satt[i]  .a.name); 
get_inedia_name(); 
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printf("\nThe  media  data  from  the  media  table  *♦*  %s  ***  is  being  deleted 
now.,,",  media_name); 
sleep(4); 

mod_get_rid_sound(i,  so_value); 

) 


I 

)  /*  end  for  select  <  n*/ 


printf(’\i"); 


^4i**4i**«4ii|i*4i****4<*4i4<*4<4<*****4c*«*4>*4>***4«t»K***** 


When  mode  is  MODIFY,  this  function  gets  sound  file  attributes  from  the  related  media 
table. 


4f  4i  !|i  4i  4t  *  4t  <■  4i  *  :)>  i|>  *  4i  *  *  *  ^  ^  4>  4>  4>  *  <t<  lot' <!■  <•  4>  4' 4>  ^  4' 

get_snd_fUe_atts(media_name,  i,  value) 

STR_name  media_name; 
int  i; 
int  value; 

{ 


int  entry; 

char  sound_value[20]; 


int  att_cuisor, 
int  desired_tupleno; 
char  query_phrase[DESCRLEN+l], 
in_phrasclDESCRUEN+ 1  ] ; 

int  j=0,  k,  c,  pid,  queiy_etr,  queiy_len,  in_icn,  f_flagdook_more=0; 

char  ISfii5[FILENAMELEN+l]; 
char  ISdescrl(DESCRLEN+l]; 
int  ISeiTor; 

STR_path  file_name; 

STR_descrp  nothing; 

char  temp_filc[100];  /•  Declare  more  to  avoid  bus  error  */ 

int  show_pid,  wait_pid; 

union  wait  status; 

int  sid  =  0; 

int  pp=0; 

int  qq=0; 

int  res=0; 

int  sz=0; 

int  s_rate=0; 

int  enc; 
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int  dur=0; 


inttostr(value,  sound_value); 

I 

Usqlnit  ((char  ♦)0); 

llwritedb(  "retrieve  unique(pp=(count( " ); 

nwritedb(temp_table); 

nwritedbC’."); 

nwritedb(satt[i].a_name); 

nwritedbC’)))"); 

IIsqRinit((char  *)0); 
if  (Uerrtest()=0)  | 
if  (DnextgetO  !=:0)  { 
nretdoin(  1 ,30,4, &pp); 

I 

nsqFlush((char  *)0); 

) 

) 


if  (UcsrC>pen((char  *)0,"cursor_output8","db3",04nedia_iuune)  !=  0)  | 
nwritedb(''retrieve(ISfii5="); 
nwritedb(media_naine); 
nwritedbC'."); 
nwritedb("f_id,ISdescrl=!"); 
nwritedb(media_naine); 
nwritedbC'  .deserp,"); 

nwritedb("res="); 

nwritedb(media_naine); 

nwritedbC'."); 

nwritcdbC'iesolution,"); 


nwritedb("sz=:"); 

nwritedb(inedia_naiiie); 

nwritedbC'."); 

nwritedbC'size,"); 


nwritcdb("s_rate="); 

nwritedb(niedia_name); 

nwritedbC’."); 
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nwritedb("samp_rate,"); 

nwritedb("enc="); 
nwritedb(media_naine); 
nwritedb(”.”); 
nwritedbC’encoding,  "); 

nwritedb("  sid=" ); 
llwritedb<media_name); 

nwritedbC'."); 

nwritedb("s_id,"); 

nwritedbC'dutss"); 

nwritedb<iTiedia_name); 

nwritedb("."); 

IIwritedb("diiration"); 


nwritedbC’)"); 
nwritedbC'  where  "); 
nwritedb(inedia_name); 
nwritedbC’ .s_id="); 

Uwritedb(sound_value); 
ncsiQueiy  ((char  *)0); 

) 

) 

pp=l; 

I 

while  Oook_inore=0)  | 

if  (UcsrFetch((char  *)0,  "cursor_output8","db3")  I*  0)  | 

ncsrRet(l,32,0aSfh5); 
ncsrRet( 1 ,32,04Sdescr  1 ); 
ncsrRet(  1 ,30,4,&ies); 
ncsrRet(l  ,30,4,&sz); 
ncsiRet(  1 ,30,4,&s_rate); 
ncsrilet(l  ,30,4,&enc); 
ncsrRet(  1 ,30,4,&sid); 
ncsrilet(  1 ,30,4,&dur); 

strcpy(file_name,  IShi5); 
strq>y(snd_record[snd_index].f_id,  fUe_name); 
strq)y(descrp,  ISdescrl); 
strcpy(snd_record[snd_index].descrp,  descrp); 
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snd_record[snd_index]  .resolution  =  res; 
snd_record[snd_index].size  =  sz; 
snd_record[snd_index].sanip_rate  =  s_rate; 
snd_record[snd_index]  .encoding  =  enc; 
snd_record[snd_index].s_id  =  sid; 
snd_record[snd_index]  .duration  =  dur; 

snd_value[snd_index]=snd_fecord[snd_index].s_id;/* - */ 

att_arraylatt_cursor].value_entiy=snd_indcx; 


printf("Vn"); 
ncsrEFetch((char  *)0); 
qq-H-; 

if  (qq=pp)  I 
look_morc  =  1; 

I 

I 

I 

ncsiOo8e((char  *)0,''cursor_output8","db3"); 

) 


init_buffer(sound  value,  20); 

I 

^lli******00***0l*0*lt^00^H,00ltl*************0**0*** 

When  mode  is  MODIFY,  this  function  gets  the  image  file  atts  from  the  related  media 
table. 

get_file_id(media_name,  i,  value) 

STR_name  media.name; 
int  i; 
int  value; 

I 

int  entry; 
int  att_cursor. 


int  desited.tupleno; 
int  k=0,  j=0,  look_more=0; 
char  ISfiil[FILENAMELEN+l]; 
char  ISdcscrl[DESCRLEN+l]; 


char  image_value[201; 


int  hght  =  0; 
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int  wdth  =  0; 
int  dpth  =  0; 
int  iid  =  0; 

STR_path  f_name; 

STR_descip  nothing; 

char  teinp_file[100];  I*  Declare  more  to  avoid  bus  error  *! 

struct  pixrect  *pr; 

colormap_t  cm; 

int  showj)id,  wait_pid; 

union  wait  status; 

int  over_length  =  TRUE;  f*  Initialize  to  true  ♦/ 

cm.type  =  RMT_NONE;  /*  this  is  absolutely  necessary!  Odierwise  */ 
cmdength  =  0;  I*  pr_load_colotmq>  might  not  allocate  storage  *! 

cm.mq>[0]  =  NULL;  /*  for  the  colormap,  if  die  garbage  found  in  */ 

cm.map[l]  =  NULL;  /*  the  cm  structure  seems  to  make  sense.  The  *! 

cm.map[2]  =  NULL;  /*  result,  of  course,  is  segmentation  fault.  */ 


inttostr(value,  image_value); 

I 

Ilsqlnit  ((char  *)0); 

IIwritedb("retrieve  unique(ks(count("); 

IIwritedb(media_name); 

nwritedbC'."); 

Ilwritcdb("i_id"); 
nwritedbC’)))"); 
lIsqRinit((char  *)0); 
if  (lleiTtest()=0)  | 
if  (IlnextgetO  1=0)  ( 

IIietdom(  1 30,4,&k); 

I 

IIsqFlush((char  *)0); 

) 


I 

if  (IIcsrOpen((char  *)0,"cursor_outputr',"db",0,media_name)  !=  0)  | 
nwritedb("ietrieve(ISfii  1  =" ); 

IIwTitedb(media_name); 
nwritedbC'."); 
nwritedb(  "f_id4Sdescrl ="); 
nwritedb(media_name); 
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nwritedbC  .descrp," ); 

nwTitedb("hght="); 

nwritedb(media_naine); 

nwritedbC’."); 

nwritedbC'height,"); 

nwritedb("iid="); 
nwritedb(inedia_naine); 
nwritedbC’."); 
nwritedb(’’  i_id," ); 

nwritedb(’’wdth=’’); 
nwritedb(inedia_fiafne); 
nwritedbC"."); 
nwritedbC"  width," ); 

nwritedbC"dpth="); 
nwritedbCinedia_nafne); 
nwritedbC””); 
nwritedbC’’depth’’ ); 


nwritedbC”)"); 

nwritedbC"  where  "); 

nwritedbCmedia.iuume); 

nwritedbC”’."); 

nwritedbC””Ud"); 

nwritedbC"="); 

nwritedbCimage.value); 

UcsiQueiy  CCchv  *)0); 

I 

I 

k=l/» - •/ 

I 

while  Clook_more  0)  { 

if  CUcsrFetchCCchar  ♦)©,  "cursor_outputl","db")  !=  0)  { 
ncsiRetCl,32,04Sfhl); 
ncsiRetC 1 ,32,04Sdesci  1 ); 

ncsiRetC  1 ,30,4,&hght); 
ncsiRetC  1 ,30,4,&iid); 
ncstRetC  1 ,30,4,&wdth); 
ncsiRetC  1 ,30,4,&(j^>th); 
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strqjy(f_nanie,  ISfnl); 

strqpy(img_record[img_index].f_id,  f_name); 
strqpy(descrp,  ISdescrl); 
strq>y(img_rccord[img_index].descip,  descrp); 
img_record[img_index].hcight  =  hght; 
img_recordlimg_indcx].i_id  =  iid; 
iing^record[img_index].  width  =  wdth; 
img_iecoidliing_index].depth  =  dpth; 

img_value(img_indexl=img_record(iing_index].i_id; 
att_aiTay  [att_cursor]  .value_entfy=iing_index; 
f* - •/ 

printf("Vn"); 

IlcsrEFetch((char  *)0); 

if(j*=k)  I 
lo<rfc_more  =  1; 

I 

I 

) 

IIcsiClo3e((char  •)0, "cursor  outputl","db"); 

I 

/•  prmf("Vninig_recofd[img_iiidex].i_id  a!>%d"4nig.iecordCiing_index].Lid); 
primf('*Sniing_recotd[img_index].f_id  s=>%8'’4nag_recoid[img_index].f_id); 
printf("Vniing_record[img_iiidex].descip  s>%s",inig_i«cord[img_index].descip); 
slccpd);*/ 

iiiit_buffer(iinage  value,  20); 

I 

When  mode  is  modify,  tfiis  function  helps  user  modify  the  tuples  in  the  result  table  one 
by  one. 

*•***•*•*********«*****************«*,********/ 

proce8S_tuple_by_tuide(r) 
int  r, 

( 

int  entry; 

int  desired.tuple; 

char  c_templW]; 

int  count=0; 

int  js0Jt=043^,tenv; 

char  char_value[21],a; 

chv  file_name{2U]; 
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int  img  value.  snd_valuc; 

int  integer_value,meciia_value,found,medial_value; 
float  real_value; 
int  i=0,select=0; 
int  g=0; 
int  d; 

i_value[i_index]=0; 

dcsircd_tuple=r; 

piintf("NnTuple  to  be  modified  ::  Tuple  #  %d  ",  desired_tuple+l); 
sleep(3); 

/*  #  line  3169  "db.sc"  */  /*  select  */ 

I 

nsqlnit((char  *)0); 

IIwritedb("retrieve(g=(count(" ); 

IIwritedb(temp_table); 

llwritedb("."); 

IIwritedb(satt[0]  .a_name); 

UwritedbC’)))"); 
lIsqRinit((char  *)0); 
if  (hemestO  =  0)  | 
if  (IlnextgetO  !=  0)  | 

Ilretdom(  1 ,30,4,&g); 

I  /*  llnextget  */ 
nsqFlush((char  *)0); 

)  /*  Hentest  */ 

} 

1=0; 

if  (g=0)  { 

printf('\iPress  ENTER  to  continue...”); 

a=getchar(); 

return; 

I 

/•  #  line  3171  "db.sc"  */  /*  host  code  */ 

if  (IIcsrOpen((char  *)0,"cursor_output","db2”,0,temp_table)  !=  0)  | 
IIwritedb("ietrieve("); 
for  (select=0;select<n-l;select++)  | 
nwritedb(satt[select].a_naine); 
nwritedb("="); 
n  writedb(teinp_table ); 

IIwritedb("."); 

IIwritedb(satt[select].a_nanie); 

IIwritedb(","); 

} 


208 


IIwritedb(satt[select].a_name); 

nwritedb("="); 

nwritedb(teii:^_tablc); 

nwritedb("."); 

nwritedb(satt[select].a_name); 
nwritedbC')"); 
ncsiQueiy((char  *)0); 

)  /*  ncsiOpen  */ 

look_moie=0; 

1=0; 

if(g=0)  { 

look_more=l; 

) 

table.cursor  =  table_entry; 
count=0; 

count  =  table_array[table_list[table_cursor]].att_count; 

att_cuTsor  =  table_aiTay[table_list[tabie_cursor]].att_entry; 

act_media_count  =  0; 

i_index=0; 

c_index=0; 

/*  Fetch  the  cursor  to  the  result  relation  which  is  the  intennediate  table 
hold  the  result  from  the  query,  then  print  out  the  tuple  one  at  a  time 
until  no  more  record  to  print  to  the  user  ♦/ 

while  (look_niorc  =  0)  { 

if  (ncsrFetch((char  ♦)0,"cuisor_output","db2")  1=  0)  | 
if  (desired_tuple  =  1)( 
printfC'record  id  %d  V4+1); 

) 

for  (i=0;i<n;i++)  ( 

if  (strcmp(satt[i].data_type,"c20")=0)  { 
lIcsrRet(  1 32,0,char_value); 
if  (desired_tuple  — 1){ 
printf(”%s  ;  %s",satt[i].a_name,char_value); 
strcpy(c_temp,  char.value); 
stTcpy(c_value[c_index],  c_temp); 
att_array[att_cursor].vaIue_entry  =  c_index; 
c_index  =  (c_index  +  1)  %  20; 
att_ciusor  =  att_array[att_cursor].next_index; 

I 

I 

if  (strcnqKsatt[i].data_type,"integer">=0)  { 
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ncsrRet(  1 ,30,4,&integer_value); 
if  (desired_tuple  =  1)| 

prmtf("%s  :  %d  ",satt[i].a_name4nteger_value); 
i_value[i_index]=integer_value; 
att_array[att_cursor].value_entiy  =  i_index; 

Lindex  =  (i_indcx  +  1)  %  20; 

att_cursor  =  att_airay[att_cursor].next_index; 

) 

) 

if  (strcmp(satt[i].data_type,"float")=0)  { 

UcsrRetC  1 ,3 1 ,4,&ieal_valuc); 
if  (desired_tuple  =  1)| 

printf("%s  :  %8.2f  "^att[i].a_naine,real_value); 

I 

) 

if  (sircmp(satt[i].data_type,"image">=0)  | 
ncsrRet(  1  ^0,4,&inedia_value); 
if  (desired_tiiple  =  1)| 
iing_value:4nedia_value; 

piintf("%s  id  is  %d  ",satt[i].a_name4nedia_value); 

I 

I 

if  (strcn:^satt[i].data_type,"sound">====0)  { 

IIcsrRet(  1 ,30,4,&medial_value); 
if  (desired.tuple  1)( 
siid_valuesmedial_value; 
printf("%s  %d"^att[i].a_naine4iiedial_value); 

) 

I 

|/*end  for  select  n*/ 
printf("Nn"); 

ncsrEFetch((char  *)0);  /"  fetch  the  next  recoid  to  the  cursor  */ 
1-H-;  /*  increment  1  as  the  counter  */ 
if  (1— g)  {  /*  check  if  no  more  data  to  print  */ 

look_more  =1;  /*  exit  of  the  loop  */ 

) 

)  /*  IIcsrFetch  ♦/ 

)  /*  end  while  */ 

ncsiClose((char  *)0,"cursor_output","db2");  /*  close  the  cursor  */ 

printf("Piess  ENTER  to  continue 
as  getchar(); 
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for  (i=0;i<n;i-H-)  { 

if  (strcmp(satt[i].data_type,"image")=0)  { 
strqjy(table_array [table_index]  .table_name,  satt[i]  .t_naine); 
found  =  check_table_name();  /♦  search  for  the  media  name  */ 
table_cursor  =  table_entry; 
strcpy(media_name,satt  [i] .  a_name); 
get_media_name(); 

printf("\nThe  attribute  values  will  be  rcad  from  the  media  table  %s",  media_name); 
sleep(2); 

get_file_id(media_name,  i,  img_value); 
printfC'Piess  ENTER  to  continue 
a=  getcharO; 

att_cursor  =  att_array[att_cursor].next_index; 

media_counter-H-; 

media_value=0;/* - ♦/ 

) 

if  (strcit^satt[i].data_type,"sound")==0)  ( 
strcpy(table_array ltable_index J  .table_name,  satt[i]  .t_name); 
found  =  check_table_name(); 
table_cursor  =  table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 

printf(”VnThe  attribute  values  will  be  read  from  the  media  table  %s'',  media_name); 
sleep(2); 

get_snd_file_atts(media_name,  i,  snd_value); 
printfC'Press  ENTER  to  continue 
a=  getchaif); 

att_cursor  =  att_array[att_cursor].next_index; 

media_counter++; 

medial_value=0;/* - */ 

) 

)  /*  end  for  select  <  n*/ 


^**4i*4>************4>******4i**«4t*«4t4'4i**4i*********4i***4i4i************* 


When  mode  is  MODIFY,  this  function  prints  the  number  of  tuples  in  the  result  table. 

4i4ii|i4i4i**4t**)|i*i(i4t*4i4t****4>*4i4t4t4<4i4i4i4i4i4i*4i4t4i4i4i4i4t4i*4i4i*4i4i4t4i4i*4i:(i4i4c4i4i4i*)|i4i*4i4>*y 


int  print_for_modify(c) 
int  c; 


I 

c=0; 

/*#  line  3169  "db.sc"  *//*  select  ♦/ 

( 
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nsqlnit((char  *>0); 

IIwritedb("retricve(c=(count(” ); 

Ilwritcdb(temp_table); 

nwritedK""); 

Uwritedb(satt[0].a_naine); 

nwritedbC’)))"); 

IlsqRiiut((char  *)0); 
if  (IlentestO  —  0)  { 
if  (IlnextgetO  !=  0)  | 
llietdom(  1 ,30,4,&c); 

)  f*  Ilnextget  */ 
nsqFlush((char  *)0); 

)  /*  Hentest  */ 

I 

printfCV***  THERE  ARE  %d  RECORDS  (TUPLES)  TO  BE  MODIFIED  ***",c); 

printf("\n(You  will  be  queried  for  modifying  each  tuple)”); 

sleep(3); 

ietum(c); 

) 

^4i4i4>4i4i%4i4<*<li4i4i4i4>4i4i4i<k4i 

When  mode  is  modify,  this  function  deletes  the  modified  tuples  from  the  tables. 

*<*4>4i4i4i4r4'*4i*4>4>4t4i4i4>**4i^ 

void  delete  fotmatted_pait  for  modifyO 

I 

int  i; 

printfCNiThe  tuples  that  match  the  delete  query  are  being  deleted  from  table  %s  ♦** 
now",satt[0].t_naine); 
printf("\nPiess  ENTER  to  continue"); 
asgetchaiO; 

Ilsqlnit((char  *)0); 
nwritedb("delete  "); 
nwritedb(satt[0].t_iuune); 
nwritedbC  where  "); 
for  (i=0;  i<n-l;  i++)| 
nwritedb(satt[0]  .t_name); 
nwritedbC’."); 
nwritedb(satt[i].a_name); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbC'."); 
nwritedb(satt[i].a_name); 
nwritedbC  and  "); 

) 


llwritedb(satt[0]  .t_name); 

Uwritedb("."); 

Ilwritedb(satt[i]  .a_naine); 

nwritedb("="); 

Ilwritedb(temp_table); 

llwritedb("."); 

nwritedb(satt[i].a_naine); 

nwritedbC  "); 
lIsqSync(l,(char  *)0); 

) 


This  function,  when  mode  is  DELETE,  deletes  the  modified  tuples  from  the  related  media 
tables. 


m0tim****************$>’t‘*********’t>**#*****t‘************>t‘***^it¥**’i‘******^ 

get_rid_image(imageno) 
int  imageno; 

I 

nsqlnit((char  *)0); 
nwritedbC'delete  "); 

IIwritedb(media_name); 

Ilwritedb("  where  "); 
nwritedb(media_naine); 
nwritedbC'."); 
nwritedb("ijd  ="); 

Uwritedb(temp_table); 

nwritedbC'."); 


nwritedb(satt[imageno].a_name); 
nwritedbC'  "); 
nsqSync(l,(char  *)0); 


I 

4t4i4i  4i4i4i4i4i4i4i  4i4i4i  4.414,4,4,41414,11141 4,4, 41414,41 4,1)1  ,(,4, 4, 4, 4, 4, 4, 41^1(1^4, 

This  function,  when  mode  is  MODn^T,  deletes  the  modified  tuples  from  the  related  media 
tables. 


4i«4i4i4i*4i4i«4i4i***4i4i4i4>4>4i4i4i4i*4>4i4i4i4i4<4>4>4<4<4>4i4i4>4>4i4i4i4>4r4i4i4>4<4>4>4>4i4<4r4c4>4>4i4(4i4i4i4<4<4i4i4c4i^ 

mod_get_rid_image(imageno,  value) 
int  imageno; 
int  value; 


I 

char  inedia_value[20]; 
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inttosti(value,  media.value); 

I 

Ilsqlnit((char  *)0); 

IIwritedb("delete  "); 
llwritedb(niedia_nanie); 

Ilwritedb("  where  "); 

IIwritedb(media_naine); 

nwritedbC’."); 

nwritedbC’iJd"); 

nwritedb("="); 

Ilwritedb(inedia_value); 
nwritedb("  "); 
nsqSync(l,(char  *)0); 

I 

I 

/********************************************************************* 

This  function,  when  mode  is  DELETE,  deletes  the  modified  tuples  from  the  related  media 
tables. 

4i*4i«*****4i4i4i4(4>***«****4<4i4i***4>*4i*4(4i**4>4t4i4>*4>4i4i4>*******4t*4i*4>4i*4i4i4t***4i4i4i^ 

get_rid_sound(soundno) 
int  soundno; 

I 


{ 

nsqlnit((char  *)0); 
l]writedb("delete  "); 
IIwritedb(media_name): 
IIwritedb("  where  "); 
nwritedb(media_name); 
nwritedb("."); 

IIwritedb("s_id  ="); 

IIwiitedb(temp_table); 

nwritedb("."); 

nwritedb(satt[soundno].a_name); 
nwritedb("  "); 

IIsqSync(l,(char  *)0); 


) 

) 

y4i4i4i«4i4t4>4i4i*4i**4i********4>***4>***4i4i4i*4i4' 

This  function,  when  mode  is  MODIFY,  deletes  the  modified  tuples  from  the  related  media 
tables. 
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t 


mod_get_rid_sound(soundno,  value) 
int  soundno; 
int  value; 

I 

char  sound_value[20]; 
inttosti(value,  sound_value); 

I 

nsqlnit((char  *)0); 
IlwritedbC'delete  "); 
nw]itedb(imdia_name); 
nwritedb("  where  "); 
IIwritedb(inedia_naine); 
Uwritedb("."); 

IIwritedb("s_id"); 
nwritedb("="); 
IIwritedb(souiid_value); 
nwritedb("  "); 
nsqSync(l,(char  *)0); 

I 


I 

^tmt************************************** 

When  mode  is  DELETE,  this  functions  is  the  main  function 
delete  the  tuples  from  the  related  media  tables. 

^i*0*4i0i******4i*****************************/ 


calling  other  functions  to 


void  ql_print_delete_data() 

I 

int  j=0jk=04=0,ten^; 
char  char_value[21],a; 
char  fUe_name[20]; 

int  integer_value4nedia_value,found4nedial_value; 
float  leal.value; 
int  i=0,select=0; 
im  c=0; 

/*  #  line  3169  "db.sc"  */  /*  select  ♦/ 

I 

Ilsqlnit((char  *)0); 

nwritedb("ietrieve  unique(c=(count("); 
nwritedb(ten^_table); 
nwritedb("."); 
llwritedb(satt[0].a_name); 
nwritedb(")))"); 

IIsqRinit((char  *)0); 
if  (IlerrtestO  =  0)  | 
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if  (IlnextgetO  !=  0)  { 

Ilretdom(  1 ,30,4,&c); 

)  /*  nnextget  */ 

IIsqFlush((char  *)0); 

)  /*  Uentest  ♦/ 

) 

1=0; 

print£("VnThere  are  %d  records  that  match  the  DELETE  query ",c); 
if  (c=0)  I 

printf(”\nPress  ENTER  to  continue...”); 
a=getchar(); 
return; 

) 

/*  #  line  3171  "db.sc"  */  /*  host  code  */ 

if  (ncsiOpen((char  *)0,"cursor_output","dbr’,0,temp_table)  !=  0)  { 
nwritedb(  "retrieve  ("); 
for  (select=0;select<n-l;select++)  ( 
nyrritedb(satt[select].a_name); 
nwritedb("="); 
nwritedb(tenq>_table); 
nwritedb("."); 

nwritedb(satt[select]  .a_name); 

nwTitedb(","); 

I 

Ilwritedb<satt[select].a  name); 
nwritedb("="); 

IIwiitedb(tenq>_table); 

nwritedbC'."); 

Ilwritedb(satt[3elect].a_name); 

Ilwritedb(")"); 
llcsrQueiy((char  •)0); 

)  /*  UcsrOpen  ♦/ 
printf("Vn"); 
look_more=0; 

1=0; 

if  (c=0)  I 
look_more=l; 

I 

/*  Fetch  the  cursor  to  the  temp_tablerelation  which  is  the  intermediate  table 

hold  the  temp_tablefrom  the  query,  tlwn  print  out  the  tuple  one  at  a  time  until  no 
more  record  to  print  to  the  user  ♦/ 
while  (look_morc  =  0)  | 

if  (ncsrFetch((char  *)0,"cur5or_output","dbl")  !=  0)  | 
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printf ("record  id  %dNt"4+l); 
for  (i=0;i<n;i++)  { 

if  (strcmp(satt[i].data_type,"c20")==0)  { 
ncsrRet(l  ,32,0,char_value); 
printf("%s  ;  %s",sattti]  a_name,char_value); 

) 

if  (strcmp(satt[i].data_type,"integer")=0)  ( 
ncsrRet(  1 ,30,4,&integer_value); 
printf("%s  :  %d  ",sattli].a_name,integer_value); 

I 

if  (strcmp(satt[i].dala_type,"float")=0)  { 
ncsrRet(  1 ,3 1 ,4,&real_value); 
piintf("%s  ;  %8.2f  ",satt[il.a_naine^al_value); 

) 

if  (strcmp(salt[i].data_type,"iinage")=0)  | 

IIcsrRet(l  ,30,4,&inedia_value); 

printf("%s  id  is  %d  ",satt[i].a_naine,inedia_value); 

I 

if  (strcn:q)(sattfil.dala_type,"sound")=0)  ( 

IlcsiRet(  1 ,30,4,&inedial_value); 
printf("%s  %d"^att[i].a_name^dial_value); 

} 

)  /*  end  for  select  <  n*/ 
prinif("Nn"); 

lIcsrEFetch((char  *>0);  /*  fetch  the  next  record  to  the  cursor  */ 
l-H-;  /*  increment  1  as  the  counter  */ 
if  (l=c)  I  /*  check  if  no  more  data  to  print  */ 
look_more  =1;  /*  exit  of  the  loop  */ 

) 

)  /*  ncsrFetch  ♦/ 

I  /*  end  while  */ 

lIcsrClose((char  *)0,"cursor_output","dbl");  /*  close  the  cursor  */ 
printfC'Press  ENTER  to  continue 
/*  stop  before  change  to  the  next  function  so 

the  user  can  see  the  temp_tableon  screen,  until  he  hit  ENTER  key  */ 
a=  getcharO; 

/*  this  for  the  check  for  the  media  selection  *! 
if  (c=0) 

i=9999;  /*  if  no  record  for  the  media  data  not  process  any  thing  •/ 
for  (i=0;i<n;i-H-)  | 

if  (strcmp(sattli].data_type,"image")=0)  | 
if  (image_flag=TRlJE)| 

strcpy(table_anay [table_index].table_name,  satt[i]  .t_name); 
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found  =  check_table_name();  /*  search  for  the  media  name  */ 
table_cursor  =  table_entry; 
strcpy(media_name,satt[ij.a_name); 
get_media_name(); 

piintf("\nmedia_name“>  ***%s***",  media_name); 
sleep(2); 

get_iid_image(i); 

) 

) 

if  (strcmp(satt[i].data_type,"sound'')=0)  { 
if  (sound_flag==TRUE)| 

strcpy(table_array[table_index].table_name,  satt[i].t_name); 
found  =  check_table_name(); 
table_cursor  =  table_entiy; 
strcpy(media_name,satt[i].a_name); 
gct_media_name(); 

printf("\nmedia_name— >  ***%s***",  media_naine); 

sleep(2); 

get_rid_sound(i); 

I 

I 

)  /*  end  for  select  <  n*/ 
printfCVn"); 


When  mode  is  MODIFY,  this  function  checks  the  media  desription  if  the  media  data  is 


modifed. 


000000000000000000000000000000000000000000000000000000000000000000000^ 
int  mod_chk_de$crqxion(file_id,  descip,  err.message) 

STR_path  ♦£ac_id; 

STR_descxp  *descrp; 
char  *eiT  message; 

( 

int  i=0; 

int  error  =  FALSE; 
while  (i<l  &.&  !error)( 

♦err_message  =  \)’; 
if  (strcmp(descip,  "  ")  !=  0) 
error  =  connect  j>arser(file_ki,  descip,  err_message); 
i++; 

I 


if  (error) 
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I 

printf("VnThe  description  for  media  is  NOT  acceptable!"); 
if  (error  =  DES(3l_WORD_ERR) 

printf("VnThc  system  cannot  understand  the  word  »%s«",  err_message); 
else 

if  (error  =  DESCR_STRUCTURE_ERR) 
printfCNnThe  system  cannot  interpret  the  phaseNn  »%s«", 
err.message); 

else 

printf('NiThe  program  error  occurred  in  piologfNn"); 
printf("\nPlease  modify  it.  Thank  you!"); 
putchaifNOO?’); 
while((c=getchar())  1=^0’) 


ietum(TRUE); 


I 

else 

retum(FALSE): 


) 

y*4i******4i4i4i*****4>4i*****4>*««**4>**<tt 

Gets  all  atts  of  a  given  table  and  puts  them  in  satt  array  for  retrieving  all  the  attributes 
of  that  table. 

4i4i4>*4i4i4'4i<|i4>4'4i*4i4>4i4>*4<4'*4i4i4i4i4i*4i4'4r4>4'<^y 


void  get  aD_atts_of_a_given_table() 

{ 

int  i  =  0, 
count  :=  0; 

count  =  table_array[table_list[table_cursor]].att_count; 


n  =  count; 

att.cutsor  =  table_aiTay[table_list[table_cursor]].att_entty; 
for  (i  =  0;  i  <  count;  i-H>)  ^  Loop  to  get  value  for  each  attribute  */ 
( 

strcpy(san[i].t_nanie,  stab[0].t_name); 
sticpy(satt[i].a_iuune,  att_arTay(att_cursor].att_name); 
strcpy(satt[i].data_type,  att_array(att_cursorJ.data_type); 
att.cursor  =  att_array[att_cutsor].next_indcx; 

1  /*  End  of  for  loop  •/ 

)  /*  End  of  get_tuple_value  ♦/ 


^**4i4>4i*****4>4i4i**4i4>4i**4i***4i4i*****«4t4>****4i4i*****4i«4i****4i*4>4i4>«*4>*****4>***4' 

The  main  procedure  for  the  retrieve  operation 
m  and  n  is  the  parameter  for  table  and  attribute  repectively 
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For  retrieve  table  name  and  attribute  name  from  the  user 
This  function  also  handles  DELETE  and  MODIFY  operations 

^t********************************************************************* 

void  retrieve(mode) 

I 


int  entry; 
int  count; 

int  h,r,flag=TRUE; 

int  o,  u; 

char  bufD[13]; 

char  bufl[13]; 

char  buf2[13]; 

char  buf3[13]; 

char  buf4[13]; 

char  temp[3]; 

char  aggiegate0[3]; 

char  aggregate  1  [3]; 

char  aggiegate2r3]; 

char  aggiegate3[3]; 

char  aggiegate4[3]; 

int  ij^,y;z,found=0; 

int  level_no=0,  counters  1; 

char  table_name(20],attname[20],att_type[20],Ans^ore,a; 

char  choice; 

init_buffer(buff ,  1 00) ; 

init_buffer(temp_table  1 ,20); 

init_buffer(temp_table2,20); 

init_buffer(tenip_table,20); 

choiccs’O’; 


m=0; 

i=0; 

k=0; 

gcondsO; 

numcon=0; 

aggregate_found=FALSE; 

moie_selections=TRUE; 

moie_levelssTRUE; 


initO; 

drop_temp_media_tables(); 


while  (more_levcls  !=  FALSE)  ( 
while  (moie.selections  !=  FALSE)! 


P 
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init_buffer(buff ,  1 00); 

printf("\nEnter  table  name  to  hold  tlie  temporary  result  of  the  query:  "); 
gets(buff); 

strcpy(temp_table,  buff); 
init_buffer(buff ,  1 00) ; 

help_tables(buff); 

while  (i<=table_count)  (/*  check  loop  with  the  maximum  number  table  *! 
for  /*  equal  to  12  char  only  */ 

{ 

if  (buff[k]=44)  I 
stab(i].t_name|j>=  ’VO’; 
j=55; 
k=k+l; 
i=i+l; 

I 

else  ( 

if  (buffTk]  =  ’  ’) 

j=55;  /*  Sk4>  the  white  space  if  the  user  typped  in*/ 
else 

stab[i].t_name|j]=buf{[k]; 

if  (buff[k]=0)  (  /*  if  null  value  in  buffer  (end  of  string)  */ 

m=i+l; 

j=55; 

i=1000; 

I 

k=k+l; 

) 

I 

|/*end  while*/ 

strcpy(temp_tablcl,  stab[0].t_naine); 
for  (i=K);i<in;i++)  { 

strcpy(table_atTay [table.index]  .table_name,  stab[i]  .t_name); 
found  =  check_table_name();  /*  search  for  the  media  name  */ 
if  (!(found))  | 

/*  check  for  the  valid  table  name  if  not  found  then  return  to  calling  program  */ 
putchar(’V007’); 

printf("VnTable  %s  not  found  please  redo  again  !!!"  ^tab[i].t_naine); 

printf("VnPress  ENTER  to  continue  !!"); 

a=getchar(); 
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return; 

)  /*  end  else  */ 

I  /*  end  for  loop  ♦/ 

t*  Specify  the  join  condition  if  there  are  more  than  2  table  select  */ 
helpJoinO; 

/♦  Select  attribute  */ 
init_buffer(buff,100); 
i  =  0; 
j  =  0; 
k=:0; 

X  =  0; 

z  =  0; 

if  (mode  =  RTRVE_MODE){ 

/*  Select  attribute  for  one  table  at  a  time  *! 
for  (y=0;y<m;y-H-)  | 
printf('SnTable  %s  ",  stab[yl.t_name); 
strcpy(buflf,"7"); 
while  (strcn^buff,"7")=0)  ( 

printf('\iSelect  the  attribute(s)  separated  by  comma  <,>  -  <7>  for  HELP  I  -Nnhit 
<ESC>  for  no  attribute"); 

printf("VnSELECr  ATTRIBUTE(S)  :  "); 
gcts(buf0; 

if  (strcmp(buff,"7")=*0)  | 
p_att(stab[y].t_name); 

I  /*  end  if  buff  =  "7"  */ 

I  /*  end  while  need  help  ♦/ 

while  (i  <  100)  ( 
for  (H);j<13  j++)| 
if  (bufiflk]=27)  I 
goto  start_again; 

I 

if  (bufflk]==44)  I 
bufOlj]=  ’VO’; 

strcpy(satt[x].t_naine,  stab[y].t_name); 
init_buffer(tenip3 ); 
init_buffer(aggregate0,3 ); 
u=x; 

aggregate_found=FALSE; 

aggregate_found=check_aggregate(bufO,  temp,  aggregate_found); 
printf(’’Vn”); 
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sticpy(aggregateO,  temp); 
if  (aggregate_found=TRUE)| 
get_attribute(buf[;,  satt[u].a_name); 
printf("\n"): 

if  (strcmp(aggrcgateO,"cnt")=0) 
sattlu].aggiegate_type=l ; 
if  (strcinp(aggregateO,"sum‘’)=0) 
san[u].aggregate_type=2; 
if  (strcmp(aggrcgateO,"avg")==0) 
satt[u]  .aggregate_type=3 ; 
if  (strcmp(aggregateO,"max")=0) 
satt[u].aggiegate_type=4; 
if  (strcmp(aggregateO,"min'')=0) 
satt[uj.aggregate_type=5; 
printf(*'\n"); 

) 

if  (aggregate_found=FALSE)( 
strq>y(satt[u].a_naine,bufD); 
satt[u].aggFegate_type=0; 
printf("\n"); 
clr_scr(); 

I 

j=55; 

k=k+l; 

i=i+l; 

x=x+l; 

) 

else  { 

if  (buff[k]  =  ’  ’) 

j=55;  /*  Skip  the  white  space  if  user  typped  in  */ 
else! 

bufDU]=bufifIk]; 

) 

if  (buff[k]=0)  { 

strcpy(satt[xj.t_nanie,  stab[y].t_name); 
init_buffer(temp,3 ); 
init_buffer(aggregateO,3); 
u=x; 

aggregate_found=FALSE; 

aggregate_found=check_aggiegate(bufO,  teny,  aggregate.found); 
printfC^n"); 

strcpy(aggregateO,  ten^); 
if  (aggregate_fo»ind=TRUE){ 
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get_attribute(bufD,  satt[u].a_name); 
printf("Vn"); 

if  (strcmp(aggregateO,"cnt")=0) 
satt[u].aggregate_type=l; 
if  (strcmp(aggregateO,"suin'')==0) 
satt[u].aggregate_type=2; 
if  (strcmp(aggregatcO,"avg")=K=0) 
satt[u].aggregate_type=3; 
if  (strcinp(aggrcgateO,"max")==0) 
satt[u].aggregate_type=4; 
if  (strcmp(aggregateO,"min")=0) 
satt[u].aggregate_type=5; 
printfCVn"); 

I 

if  (aggregate_found=FALSE)| 
strcpy(satt[u]  .a_name,bufO); 
sattiu].aggregate_type=0; 
printf("Vn"); 
clr_scr(); 

) 

n=x+l; 

j=55; 

i=1000; 

) 

k=k-i-l; 

)  /*  end  else  */ 

)  /*  end  for  j  <  13  */ 

)/*end  while  */ 
x=x+l; 
stait.again: 
k=0; 

init_buffei<buff,100); 

i=0; 

)  I*  End  select  attribute  for  each  ti^le  go  to  the  next  table  */ 
clr_scr(); 

for  (i=0;i<n;i++)  { 

printf(”Nn%s.%s",  satt[i].t_name,satt[i].a_nanie); 
getatttype(satt[i].t_name^att[i].a_name,satt[i].daia_type); 

) 

)  /♦  closure  of  if  mod  =TOt  ♦/ 
if  ((mode=DEL_MODE)  II  (mode=MOD_MODE))( 
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tablc_cui:sor  =  table_entry; 
get_all_atts_of_a_given_table(); 

I 

printf("Nn"); 

cond=0; 

printf(”VnAny  condition  ?  (y/n) 

Ans=ycs_no_answcr(); 
if  ((Ans=121)ll(Ans=89))| 

choice=nestcd_piocesscondition(choicc,tenip_tablel,temp_table2,temp_table); 

) 

if  (choice=’0’){ 
ql_retrieve(tenip_table); 
ql  4>rintdata(temp_table); 

I 

init_bt»ffer(buflf,100); 

query_for_intersect_union(choice,tenip_table  1  ,tenq)_table2,temp_table); 
printf(’\iMore  selections  at  this  level  ?  (y/n)"); 

Ans=yes_no_answer(); 
if  ((Ans=121)ll(Ans=89)){ 
niore_selections=TRUE; 
choices’©’; 
y  =  0; 
j  =  0; 

X  s  0; 

z  =  0; 

m=0; 

i=0; 

k=0; 

cond=0; 

gcond=0; 

numcon=0; 

n=0; 

founds©; 

initO; 

drop_temp_media_tables(); 
init_buffcr(buff,  10©); 
init_buffer(t«np_tablel  ^©); 
init_buffer(temp_table2,2©); 
init_buffer(temp_table,2©); 

) 
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else( 

more_selections=FALSE; 

printf(’Ni"); 

} 

I 

printf("\nMore  levels  ?  (y/n)"); 

Ans=yes_no_answer(); 
if  ((Ans==121)ll(Ans=89)){ 
moie_levels=TRUE; 
inoie_selections=TRUE; 
level_no=level_ncH- 1 ; 
choice=’0’; 
y  =  0; 
j  =  0; 

X  =  0; 

z  =  0; 

01=0; 

i=0; 

k=0; 

cond=0; 

gcond=0; 

numcon=0; 

n=0; 

initO; 

drop_tenip_niedia_tables(); 

init_buffer(buff,100); 

init_buffer(ten^_table  1 ,20); 

init_buffer(teinp_table2,20); 

init_buffer(ten^_table,20); 

found=0; 

I 

else  I 

more_selections=FALSE; 

nioie_levels=FALSE; 

I 

)/*  end  while  more  levels  ♦/ 

if  (mode=DEL_MODE)| 
image_flag=TRUE; 
sound_flag=TRUE; 

printfC^iDo  want  to  continue  with  DELETION  ?  (y/n)  ::"); 

Ans=yes_no_answer(); 

if  ((Ans=110)ll(Ans=78)) 
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goto  qquit; 

ql_print_delete_data(); 
delete_fonnatted_part_for_modi£y(); 
drop_table(temp_table); 
image_flag  =  FALSE; 
sound_flag  =  FALSE; 

I 

if  (mode=MOD_MODE){ 
formatted.flag  =  FALSE; 
iinage_flag  =  FALSE; 
sound_flag  =  FALSE; 
h=print_for_modify(h); 
for  (r=0;  r<h;  r++){ 
fonnatted_flag  =  FALSE; 
iinage_flag  =  FALSE; 
sound_flag  =  FALSE; 
media.counter  =  0; 
piocess_tiiplc_by_tuple(r); 
fnod_display_tuple(mode,  inedia_coonter); 
store_data(tnode); 
mod_ql_inseit_tuple(niode); 
att_ciirsor  =  0;/*to  initialize  the  value  arrays  */ 
inig_index  =  0; 
snd.index  *  0; 

Lindex  =  0; 
f_index  =  0; 
c_index  =  0; 
delete_for_modify(r); 

I 

delete_foimatted _part_for_modify0; 
drop_table(temp_table); 
image.flag  =  FALSE; 
sound  flag  =  FALSE; 

I 

qquit: 

printf("\n  "); 

)  /*  End  procedure  */ 
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